Five weekends: Difference between revisions
m
→Haskell Using Data.Time: (lint)
m (→Haskell using Data.Time: '&&' -> ',') |
m (→Haskell Using Data.Time: (lint)) |
||
Line 2,993:
[1 .. 12] >>=
\m ->
, gregorianMonthLength y m == 31 ]
isFriday :: Day -> Bool
Line 3,015 ⟶ 3,016:
xs
years
n = (length . concat)
(putStrLn . intercalate "\n\n")
[ "How many five-weekend months 1900-2100 ?"
Line 3,026 ⟶ 3,027:
, '\t' : show (length lean)
, "Which years are lean ?"
, unlines (('\t' :) <$>
]</lang>
{{Out}}
| |||