fork download
copy 
  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
stdin
copy 
1
2
10
42
11
compilation info 
[1 of 1] Compiling Main             ( prog.hs, prog.o )
Linking prog ...
stdout
copy 
1
2
10
https://ideone.com/swFcW
language:
Haskell (ghc 8.4.4)
created:
13 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!