2012-05-30から1日間の記事一覧
Problem 14はいわゆる「コラッツの問題」ってやつです。 import Data.List (maximumBy) import Data.Ord (comparing) collatz 1 a = a collatz n a | even n = collatz (n `div` 2) (a + 1) | otherwise = collatz (3*n + 1) (a + 1) main = print $ maximum…
Problem 14はいわゆる「コラッツの問題」ってやつです。 import Data.List (maximumBy) import Data.Ord (comparing) collatz 1 a = a collatz n a | even n = collatz (n `div` 2) (a + 1) | otherwise = collatz (3*n + 1) (a + 1) main = print $ maximum…
