fork(2) download 
  1. import IO
  2. magic :: [Int]
  3. magic = [5,3,3,8,0,7,5,8,1,4]
  4. riddle s = splitAt 5 (concat(map show [mod (fromEnum a + b) 10 | (a, b) <- zip s magic]))
  5. main = do
  6.  hFlush stdout
  7.  s <- getLine
  8.  putStrLn (show (riddle s))
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.hs:1:8:
    Could not find module `IO'
    It is a member of the hidden package `haskell98-2.0.0.1'.
    Use -v to see a list of the files searched for.
stdout 
Standard output is empty
https://ideone.com/xxxxdO
language:
Haskell (ghc 8.4.4)
created:
12 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!