二周目。今度は問題を解きながら。

というわけで練習問題

回文をつくるのと回文かどうかをチェックする。後者は回文を作ってみて元の文を二つ並べたものと一致するかをチェック

-- 3-4    
mypalin :: [a] -> [a]
mypalin [] = []
mypalin (x:xs) = [x] ++ mypalin xs ++ [x]

-- 3-5
ismypalin :: Eq a => [a] -> Bool
ismypalin xs = (mypalin xs) == (xs ++ xs)

Real World Haskell―実戦で学ぶ関数型言語プログラミング
Bryan O'Sullivan,John Goerzen,Don Stewart
オライリージャパン / ￥ 3,990 ()
在庫あり。