language: Haskell (ghc-6.8.2)
date: 117 days 10 hours ago
link:
visibility: public
1
2
3
4
5
6
7
main = do
         x <- getLine >>= (\y -> readIO y :: IO Integer)
         if x == 42
           then putStr("")
           else do
             putStr  (show (x) ++ "\n")
             main
  • upload with new input
  • result: Success     time: 0.01s    memory: 3716 kB     returned value: 0

    1
    2
    10
    42
    11
    
    1
    2
    10