読者です 読者をやめる 読者になる 読者になる

morris555's diary

高校生のブログです。

Problem 19

haskell Project Euler

今回は、Problem 19です。

import Data.Time.Calendar
import Data.Time.Calendar.WeekDate

main = print . length $ [d | d <- [fromGregorian y m 1 | y <- [1901..2000], m <- [1..12]], let (_, _, w) = toWeekDate d, w == 7]

Haskellなら簡単でした。