2012-06-06から1日間の記事一覧
今回は、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なら簡単でした。
今回は、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なら簡単でした。
