Leap year: Difference between revisions
→{{header|Picat}}
Line 2,555:
return (date('L', mktime(0, 0, 0, 2, 1, $year)) === '1')
}</lang>
=={{header|Picat}}==
<lang Picat>go =>
foreach(Y in [1600,1700,1899,1900,2000,2006,2012])
println(Y=cond(leap_year(Y),leap_year,not_leap_year))
end,
nl.
leap_year(Year) =>
(Year mod 4 == 0, Year mod 100 != 0)
;
Year mod 400 == 0. </lang>
Output:
<pre>1600 = leap_year
1700 = not_leap_year
1899 = not_leap_year
1900 = not_leap_year
2000 = leap_year
2006 = not_leap_year
2012 = leap_year</pre>
=={{header|PicoLisp}}==
| |||