Palindrome dates: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Tidied.) |
(J) |
||
Line 1,223: | Line 1,223: | ||
9290-09-29</pre> |
9290-09-29</pre> |
||
=={{header|J}}== |
|||
<syntaxhighlight lang=J>task=: {{ |
|||
r=. '' |
|||
days=. todayno 2020 02 02 |
|||
while. 15 > #r do. |
|||
days=. ({:days)+1+i.1e4 |
|||
r=. r, days#~(-:|.)"1":,.1 todate days |
|||
end. |
|||
15 10{.isotimestamp todate r |
|||
}}</syntaxhighlight> |
|||
<syntaxhighlight lang=J> task'' |
|||
2021-12-02 |
|||
2030-03-02 |
|||
2040-04-02 |
|||
2050-05-02 |
|||
2060-06-02 |
|||
2070-07-02 |
|||
2080-08-02 |
|||
2090-09-02 |
|||
2101-10-12 |
|||
2110-01-12 |
|||
2111-11-12 |
|||
2120-02-12 |
|||
2121-12-12 |
|||
2130-03-12 |
|||
2140-04-12 |
|||
</syntaxhighlight> |
|||
=={{header|Java}}== |
=={{header|Java}}== |
||
<syntaxhighlight lang="java"> |
<syntaxhighlight lang="java"> |