1 2 3 4 5 6 7 8 9 10 | main = do putStrLn "Give me a number!" my_stuff <- getLine let nump = read (my_stuff)::Int another_function nump another_function nump = do putStrLn $ show nump putStrLn "Try again!" main |
bWFpbiA9IGRvCiAgICAgICAgIHB1dFN0ckxuICJHaXZlIG1lIGEgbnVtYmVyISIKICAgICAgICAgbXlfc3R1ZmYgPC0gZ2V0TGluZSAKICAgICAgICAgbGV0IG51bXAgPSByZWFkIChteV9zdHVmZik6OkludAogICAgICAgICBhbm90aGVyX2Z1bmN0aW9uIG51bXAKCmFub3RoZXJfZnVuY3Rpb24gbnVtcCA9IGRvCiAgICAgICAgICAgICAgICAgICAgICAgICAgcHV0U3RyTG4gJCBzaG93IG51bXAKICAgICAgICAgICAgICAgICAgICAgICAgICBwdXRTdHJMbiAiVHJ5IGFnYWluISIKICAgICAgICAgICAgICAgICAgICAgICAgICBtYWlu
[1 of 1] Compiling Main ( prog.hs, prog.o ) Linking prog ...
-
upload with new input
-
result: Success time: 0s memory: 3716 kB returned value: 1
1 5 9
Give me a number! 1 Try again! Give me a number! 5 Try again! Give me a number! 9 Try again! Give me a number!
prog: <stdin>: hGetLine: end of file


