2018-08-06から1日間の記事一覧

Project Euler No. 1 ~ No.10 を解いた

No.1 ~ 10までのコードをペタペタしていきます. No.1 Multiples of 3 and 5 1000以下のxについて,x mod 5 == 0, x mod 3 == 0の数の合計を求める check :: Int -> [Int] check a = if (a `mod` 3 == 0 || a `mod` 5 == 0) then a : (check $ a + 1) else c…