Leap year: Difference between revisions
m
→{{header|K}}: Adjust
(→{{header|K}}: Note K3 dialect, reformat, extend) |
m (→{{header|K}}: Adjust) |
||
Line 2,187:
Leap year test:
<syntaxhighlight lang="k"> leapyear:{(+/~x!'4 100 400)!2}</syntaxhighlight>
<syntaxhighlight lang="k"> leapyear'1996+!6
1 0 0 0 1 0</syntaxhighlight>
Leap year selection:
<syntaxhighlight lang="k"> leapyears:{a@&leapyear'a:x}</syntaxhighlight>
<syntaxhighlight lang="k"> leapyears@1900,1994,1996,1997,2000
1996 2000</syntaxhighlight>
| |||