Leap year: Difference between revisions
Content added Content deleted
(→{{header|K}}: Note K3 dialect, reformat, extend) |
m (→{{header|K}}: Adjust) |
||
Line 2,187: | Line 2,187: | ||
Leap year test: |
Leap year test: |
||
<syntaxhighlight lang="k"> leapyear:{(+/~x!'4 100 400)!2}</syntaxhighlight> |
<syntaxhighlight lang="k"> leapyear:{(+/~x!'4 100 400)!2}</syntaxhighlight> |
||
Testing a range of years: |
|||
<syntaxhighlight lang="k"> leapyear'1996+!6 |
<syntaxhighlight lang="k"> leapyear'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"> leapyears:{a@&leapyear'a:x}</syntaxhighlight> |
<syntaxhighlight lang="k"> leapyears:{a@&leapyear'a:x}</syntaxhighlight> |
||
Selecting leap years from a list: |
|||
<syntaxhighlight lang="k"> leapyears@1900,1994,1996,1997,2000 |
<syntaxhighlight lang="k"> leapyears@1900,1994,1996,1997,2000 |
||
1996 2000</syntaxhighlight> |
1996 2000</syntaxhighlight> |