fork(12) download
  1. main = print $ my_length [1..10]
  2.  
  3. my_length :: [a] -> Integer
  4. my_length [] = 0
  5. my_length (_:xs) = 1 + my_length xs
Success #stdin #stdout 0s 8388607KB
stdin
Standard input is empty
stdout
10