4 lines
71 B
Haskell
4 lines
71 B
Haskell
hailstone n
|
|
| n == 1 = 1
|
|
| even n = n `div` 2
|
|
| odd n = 3*n + 1
|