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

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

開発環境

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

コード

lesson/app/Main.hs

module Main (main) where

import Palindrome

text :: String
text = "A man, a plan, a canal: Panama!"

main :: IO ()
main = do
  print text
  print $ isPalindrome text
  print "Haskell"
  print $ isPalindrome "haskell"

lesson/src/Palindrome.hs

module Palindrome
  ( isPalindrome,
  )
where

import Data.Char
  ( isPunctuation,
    isSpace,
    toLower,
  )

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

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

toLowerCase :: String -> String
toLowerCase = map toLower

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

isPalindrome :: String -> Bool
isPalindrome text =
  let cleanText = preprocess text
   in cleanText == reverse cleanText

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
"A man, a plan, a canal: Panama!"
True
"Haskell"
False
%