Kuin Advent Calendar 2016 - 21日目

この記事は【Kuin Advent Calendar 2016】の21日目の記事です。

←前の日の記事   →次の日の記事

【記事中で紹介しているコードについて】
コンパイルが通らない場合など、不具合があれば、@tatt61880まで連絡いただけると助かります。よろしくお願いいたします。


回文かどうかを判定してくれるKuinのコードです。
palindrome.kn
{ 回文かどうか判定するプログラムです。 }
func main()
	var strs: [][]char :: ["Palindrome", "level", "12/21", "しんぶんし", "たけやぶやけた", "回文", "ごまたまご"]
	for i(0, ^strs - 1)
		var str: []char :: strs[i]
		do cui@print("「\{str}」は、回文\{@isParindrome(str) ?("です。", "ではありません。")}\n")
	end for
end func

func isParindrome(str: []char): bool
	for i(0, (^str / 2 - 1))
		if(str[i] <> str[^str - 1 - i])
			ret false
		end if
	end for
	ret true
end func

出力結果
「Palindrome」は、回文ではありません。
「level」は、回文です。
「12/21」は、回文です。
「しんぶんし」は、回文です。
「たけやぶやけた」は、回文です。
「回文」は、回文ではありません。
「ごまたまご」は、回文です。

←前の日の記事   →次の日の記事