今度はこれ。http://acm.uva.es/p/v1/100.html 暇なわけではないです。 import Control.Monad import System f :: Integer -> Int f n = length (takeWhile (/=1) $ iterate g n) + 1 where g x | even x = x `div` 2 | otherwise = 3*x + 1 main :: IO () m…

http://www.acm-japan.org/past-icpc/domestic2006/contest/all_ja.html の Problem B を (ものすごく適当に) 解いてみる。これ、もしかしたら Arrow を使うとすごくきれいに書けるんじゃないだろうか。けどお腹痛いから細かいことを考えられない。うむ、と…