計算機科学のブログ

コードの整理とプロジェクトのビルド Monad型クラス Haskellコードをモジュールにまとめる プログラムを複数のファイルに分割する 関数のエクスポート

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

コード

Main.hs

module Main where

import qualified Palindrome

main :: IO ()
main = do
  print $ Palindrome.preprocess "Hello, world!"
  print $ Palindrome.preprocess "AbCdE"

コード

Palindrome.hs

module Palindrome
  ( isPalindrome,
    preprocess,
  )
where

import Data.Char (toLower)

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

preprocess :: String -> String
preprocess = toLowerCase

toLowerCase :: String -> String
toLowerCase = map toLower

入出力結果(Terminal, Zsh)

% runghc Main.hs
"hello, world!"
"abcde"
%