Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
第4回 スタートHaskell2 exercise8 エコー
echo = do
str <- getLine
if str == "quit"
then do
putStrLn "Do you really want to quit? (yes/no)"
ans <- getLine
if ans == "yes"
then return ()
else echo
else do
putStrLn str
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment