Haskell - 入出力(IOアクション)

すごいHaskellたのしく学ぼう!
(オーム社)
Miran Lipovača (著)
田中 英行 村主 崇行 (翻訳)
[Kindle版]

開発環境

• OS X Lion - Apple(OS)
• Emacs、BBEdit - Bare Bones Software, Inc. (Text Editor)
• Haskell (純粋関数型プログラミング言語)
• GHC (The Glasgow Haskell Compiler) (処理系)

『初めてのプログラミング 第2版』(Chris Pine 著、長尾 高弘 訳、オライリー・ジャパン、2010年、ISBN978-4-87311-469-9)の9章(自作メソッドの書き方), 9.5(練習問題)、askメソッドの改良をHaskellで解いてみる。

その他参考書籍

• プログラミングHaskell (オーム社) Graham Hutton(著) 山本 和彦(翻訳)
• Real World Haskell―実戦で学ぶ関数型言語プログラミング (オライリージャパン) Bryan O'Sullivan John Goerzen Don Stewart(著) 山下 伸夫 伊東 勝利 株式会社タイムインターメディア(翻訳)

入出力、IOアクション

コード(BBEdit)

sample.hs

{-# OPTIONS -Wall -Werror #-}

main :: IO ()
main = do
    putStrLn "こんにちは。お忙しいところ……"
    putStrLn ""
    _ <- ask "タコスはお好きですか？"
    _ <- ask "ブリトーはお好きですか？"
    b <- ask "お漏らししますか？"
    _ <- ask "チミチャンガはお好きですか？"
    _ <- ask "ソパピアはお好きですか？"
    putStrLn "あと少しです・・・・・・"
    _ <- ask "オルチャータは好きですか？"
    _ <- ask "フラウタスは好きですか？"
    putStrLn ""
    putStrLn "デブリーフィング:"
    putStrLn "この実験のために……"
    putStrLn ""
    putStrLn $ show b

ask :: String -> IO Bool
ask xs = do
    putStrLn xs
    line <- getLine
    if line == "はい" || line == "いいえ"
    then return $ yesOrNo line
    else do
        putStrLn "「はい」または「いいえ」でお答え下さい。"
        ask xs

yesOrNo :: String -> Bool
yesOrNo "はい" = True
yesOrNo "いいえ" = False
yesOrNo xs = error $ "yesOrNo: " ++ xs

入出力結果(Terminal, runghc)

$ runghc sample.hs
こんにちは。お忙しいところ……

タコスはお好きですか？
はい
ブリトーはお好きですか？
はい
お漏らししますか？
まさか
「はい」または「いいえ」でお答え下さい。
お漏らししますか？
いいえ
チミチャンガはお好きですか？
はい
ソパピアはお好きですか？
はい
あと少しです・・・・・・
オルチャータは好きですか？
はい
フラウタスは好きですか？
はい

デブリーフィング:
この実験のために……

False
$