fork download 
  1. main = do
  2.          x <- readNum
  3.          if x == 42
  4.            then putStr("")
  5.            else do
  6.              putStr  (show (x) ++ "\n")
  7.              main
  8.        where
  9.          readNum :: IO Integer
  10.          readNum = do
  11.            line <- getLine
  12.            readIO line
Success #stdin #stdout 0.01s 3716KB
comments (?)
stdin 
1
2
104
42
11
stdout 
1
2
104
https://ideone.com/0yuKP
language:
Haskell (ghc 8.4.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!