Haskell - コードの整理とプロジェクトのビルド - Haskellのコードをモジュールにまとめる - モジュールを使ってプログラムを複数のファイルに分類する

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)の UNIT6(コードの整理とプロジェクトのビルド)、LESSON 34(Haskellのコードをモジュールにまとめる)、34.2(モジュールを使ってプログラムを複数のファイルに分類する)、クイックチェック 34-1の解答を求めてみる。

コード

sample2.hs

import Palindrome

main :: IO ()
main = do
    print $ isPalindrome "racecar"
    print $ isPalindrome "ab"
    print $ preprocess "A man, a plas, a canal: Panama!"

コード

Palindrome.hs

module Palindrome(isPalindrome, preprocess) where
import Data.Char (isSpace, isPunctuation, toLower)

stripWhiteSpace :: String -> String
stripWhiteSpace = filter (not . isSpace)

stripPuctuation :: String -> String
stripPuctuation = filter (not . isPunctuation)

toLowerCase :: String -> String
toLowerCase = map toLower

preprocess :: String -> String
preprocess = stripWhiteSpace . stripPuctuation . toLowerCase

isPalindrome :: String -> Bool
isPalindrome text = cleanText == reverse text
    where cleanText = preprocess text

入出力結果(Terminal, Zsh)

% runghc sample2.hs 
True
False
"amanaplasacanalpanama"
%