コラッツの数列

collatzProblem.hs

collatz :: Int -> [Int]
collatz 1 = [1]
collatz n 
    | n `mod` 2 == 0 = n : collatz ( n `div` 2 )
    | otherwise = n : collatz ( 3 * n + 1 )

-- って書いたら、even, odd っていう便利なものがありました。書き直します

collatz':: Int -> [Int]
collatz' 1 = [1]
collatz' n 
    | even n = n : collatz' ( n `div` 2 )
    | odd n = n : collatz' ( 3 * n + 1 )

-- 実行例
-- > collatz 30
-- [30,15,46,23,70,35,106,53,160,80,40,20,10,5,16,8,4,2,1]