さあ、Haskellで数学を解こう！フィボナッチに続き、今日二つ目。600851475143の素因数のうち最大のものを計算せよ、という問題。 main = print $ pickup $ filter ans [1,3..600851475141] ans :: Int -> Bool ans n | 600851475143 `mod` n == 0 = True | …

フィボナッチ数列 with Haskell. main = print $ fibo 10 fibo :: Int -> Int fibo 1 = 1 fibo 2 = 1 fibo n = fibo (n-1) + fibo (n-2) 一行目のfibo関数の引数が、フィボナッチ数列の10番目の要素値を求めることを指定します。本当は、再帰表現で、1,1,2,3…

なり。今日も一日家にいました。昨日、部室にDSを持っていったとき、充電器を忘れたことに気がつく。午前中、放置していたドイツ語の宿題とゲーム。久々にやると、忘れかけていたことを思い出せますね。昼食は両親と焼きそば。そういえば最近、姉と食卓を囲…