関数型プログラミングの基礎高階関数回文か判定、空白文字や大文字への対応、Data.Charモジュール、isSpace関数、toLower関数、map関数、filter関数、reverse関数

入門Haskellプログラミング
 楽天ブックス
Yahoo!ショッピング
au PAY マーケット

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT1(関数型プログラミングの基礎)、LESSON9(高階関数)、9.6(練習問題)Q9-2の解答を求めてみる。

コード

import Data.Char (isSpace, toLower)

isPalindrome :: String -> Bool
isPalindrome word =
  let removed = filter (not . isSpace) word
      lowered = map toLower removed
   in lowered == reverse lowered

myWords :: [String]
myWords = ["", "a", "ab", "aba", "A man a plan a canal Panama"]

main :: IO ()
main = do
  print myWords
  mapM_ (print . isPalindrome) myWords

入出力結果(Terminal, Zsh)

% runghc sample2.hs
["","a","ab","aba","A man a plan a canal Panama"]
True
True
False
True
True
%