Leap year: Difference between revisions
Content added Content deleted
Line 2,555: | Line 2,555: | ||
return (date('L', mktime(0, 0, 0, 2, 1, $year)) === '1') |
return (date('L', mktime(0, 0, 0, 2, 1, $year)) === '1') |
||
}</lang> |
}</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}}== |
=={{header|PicoLisp}}== |