Haskell - コードの整理とプロジェクトのビルド - Haskellのコードをモジュールにまとめる - Data.Textモジュール

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT6(コードの整理とプロジェクトのビルド)、LESSON 34(Haskellのコードをモジュールにまとめる)、34.4(練習問題)、Q34-1の解答を求めてみる。

コード

Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where
import Palindrome (isPalindrome, preprocess)
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
main :: IO ()
main = do
    mapM_ (\text -> TIO.putStrLn $ mconcat ["'", text, "'", ":", 
                                            T.pack (show (isPalindrome text))])
          xs

xs :: [T.Text]
xs = ["", "a", "ab", "aba", "A man, a plan, a canal, Panama!", 
      "日", "日本", "日本日", "日本 日", "日本　日"]

コード

Palindrome.hs

module Palindrome(isPalindrome, preprocess) where
import qualified Data.Text as T
import Data.Char (isSpace, isPunctuation, toLower)


stripWhiteSpace :: T.Text -> T.Text
stripWhiteSpace = T.filter (not . isSpace)

stripPuctuation :: T.Text -> T.Text
stripPuctuation = T.filter (not . isPunctuation)

toLowerCase :: T.Text -> T.Text
toLowerCase = T.map toLower

preprocess :: T.Text -> T.Text
preprocess = stripWhiteSpace . stripPuctuation . toLowerCase

isPalindrome :: T.Text -> Bool
isPalindrome text = cleanText == T.reverse cleanText
    where cleanText = preprocess text

入出力結果(Terminal, Zsh)

% runghc Main.hs 
'':True
'a':True
'ab':False
'aba':True
'A man, a plan, a canal, Panama!':True
'日':True
'日本':False
'日本日':True
'日本 日':True
'日本　日':True
%