Leap year: Difference between revisions
Content added Content deleted
m (→{{header|K}}: Adjust) |
(→{{header|K}}: Compact, Works with Kona) |
||
Line 2,185: | Line 2,185: | ||
=={{header|K}}== |
=={{header|K}}== |
||
=== K3 === |
=== K3 === |
||
{{works with|Kona}} |
|||
Leap year |
Leap year predicate: |
||
<syntaxhighlight lang="k"> leapyear:{(+/~x!'4 100 400)!2}</syntaxhighlight> |
|||
<syntaxhighlight lang="k"> |
<syntaxhighlight lang="k"> lyp:{(+/~x!'4 100 400)!2} |
||
lyp'1996+!6 |
|||
1 0 0 0 1 0</syntaxhighlight> |
1 0 0 0 1 0</syntaxhighlight> |
||
Leap year selection: |
Leap year selection: |
||
<syntaxhighlight lang="k"> |
<syntaxhighlight lang="k"> lys:{a@&lyp'a:x} |
||
lys@1900,1994,1996,1997,2000 |
|||
1996 2000</syntaxhighlight> |
1996 2000</syntaxhighlight> |
||