fork download
  1. hailstone :: Integer -> Integer
  2. hailstone n
  3. | n `mod` 2 == 0 = n `div` 2
  4. | otherwise = 3*n + 1
  5.  
  6. main = print $ hailstone 5
Success #stdin #stdout 0s 6224KB
stdin
Standard input is empty
stdout
16