RosettaCodeData/Task/First-class-environments/Haskell/first-class-environments-1.hs

5 lines
71 B
Haskell

hailstone n
| n == 1 = 1
| even n = n `div` 2
| odd n = 3*n + 1