fork(1) download 
  1. instance (Read a) => Read (IO a) where
  2.   readsPrec d s =
  3.     let f = readsPrec d in
  4. 	let xs = f s in
  5. 	map (\(x, s) -> (return x, s)) xs
  6.  
  7. main = do
  8.   read "123" :: IO Int
  9.   print "Hello"
  10.   x <- read "123" :: IO Int
  11.   print $ "World" ++ show x
  12.   y <- read "42"
  13.   print $ "World" ++ showInt y
  14.  
  15. showInt :: Int -> String
  16. showInt = show
Success #stdin #stdout 0s 5532KB
comments (?)
stdin 
Standard input is empty
stdout 
"Hello"
"World123"
"World42"
https://ideone.com/J50bZk
language:
Haskell (ghc 8.4.4)
created:
4 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!