-> Just $ Play Down
”left”
-> Just $ Play Left
”l”
-> Just $ Play Left
”right” -> Just $ Play Right
”r”
-> Just $ Play Right
”quit”
-> Just $ Quit
”q”
-> Just $ Quit
’n’:’e’:’w’:’ ’:n
-> Just . NewGame =<< readInt n
’n’:’ ’:n
-> Just . NewGame =<< readInt n
_
-> Nothing
remindMoves :: IO ()
remindMoves = mapM_ putStrLn talk
where talk = [
”Возможные ходы пустой клетки:”,
”
left
или l
-- налево”,
”
right
или r
-- направо”,
”
up
или u
-- вверх”,
”
down
или d
-- вниз”,
”Другие действия:”,
”
new int
или n int -- начать новую игру, int - целое число,”,
”указывающее на сложность”,
”
quit
или q
-- выход из игры”]
Проверим работоспособность:
Prelude> :l Loop