HaskellのI/O テキストとUnicodeの操作 入出力、Data.Text.IOモジュール、getLine関数、putStrLn関数
入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON23(テキストとUnicodeの操作)、23.6(練習問題)Q23-1の解答を求めてみる。
コード
{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
helloPerson :: T.Text -> T.Text
helloPerson name = mconcat ["Hello ", name, "!"]
main :: IO ()
main = do
TIO.putStrLn "Hello! What's your name?"
name <- TIO.getLine
let statement = helloPerson name
TIO.putStrLn statement
入出力結果(Terminal, Zsh)
% runghc sample1.hs
Hello! What's your name?
Haskell
Hello Haskell!
% runghc sample1.hs
Hello! What's your name?
日本語
Hello 日本語!
%