sugoi07.md

小問１

(選択肢文字列,値)のリストをとって、ユーザーに選択肢を提示し、番号を入力して選んでもらった値を返す関数

choice :: [(String, a)] -> IO a

を作ってください。

小問２

choiceを使って次のような一連の処理をするプログラムを作ってください。

1. 苗字を聞く。
2. 名前を聞く。
3. ミドルネームを持っているかどうかの選択肢を提示し、ある場合は入力してもらった上で、フルネームを組み立てて表示する。

小問３

次のような愉快なゲーム記述言語っぽいものが作れるよう、choice を書き換えてみてください。

main = do
  putStrLn "どこへ行く？"
  choice [ ("宿屋" , inn)
         , ("野外" , outdoor) ]

inn = do
  putStrLn "あなたはぐっすり眠った。"
  main

outdoor = do
  putStrLn "マネジメント上の問題が現れた!!どうする？"
  choice [ ("殴る" , fight)
         , ("メラ" , magic) ]

ゲームスクリプトの全実装はこちら＞　https://gist.github.com/nushio3/5253576