fork download
  1. square n = let allNumbers = [0..]
  2. in head $ filter (== n*n) allNumbers
  3.  
  4. main = putStrLn ("square 5 = " ++ show (square 5))
Success #stdin #stdout 0s 8388607KB
stdin
Standard input is empty
stdout
square 5 = 25