WorldDownTown · February 26, 2015 05:23
diff --git a/type_homework.hs b/type_homework.hs
 -- 1. リストを引数に取って、length に π (=3.1415)を返す関数
 pieTime x = fromIntegral (length x)  + (pi :: Float)

 -- 2. 2つの文字列を引数にとって、数値として足し算する関数
 addString x y = (read x::Int) + (read y::Int)

 -- 3. 文字列を逆する関数
 reverse' x = [x !! z | z <- [((length x) - 1), ((length x) - 2)..0]]

 -- 4. 文字列が回文かどうかを判定する関数 isPalindrome
 isPalindrome x = reverse' x == x
	-- 1. リストを引数に取って、length に π (=3.1415)を返す関数
	pieTime x = fromIntegral (length x) + (pi :: Float)

	-- 2. 2つの文字列を引数にとって、数値として足し算する関数
	addString x y = (read x::Int) + (read y::Int)

	-- 3. 文字列を逆する関数
	reverse' x = [x !! z \| z <- [((length x) - 1), ((length x) - 2)..0]]

	-- 4. 文字列が回文かどうかを判定する関数 isPalindrome
	isPalindrome x = reverse' x == x