Palindrome dates: Difference between revisions
Content added Content deleted
Line 1,216: | Line 1,216: | ||
2190-09-12 |
2190-09-12 |
||
</pre> |
</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>today = DateList[Today]; |
|||
res = {}; |
|||
PrintTemporary[Dynamic[{i, Length[res]}]]; |
|||
i = 0; |
|||
While[Length[res] < 15, |
|||
date = DatePlus[today, i]; |
|||
ds = DateString[date, {"Year", "Month", "Day"}]; |
|||
If[PalindromeQ[ds], |
|||
AppendTo[res, date] |
|||
]; |
|||
i++; |
|||
] |
|||
Column[DateString[#, {"Year", "-", "Month", "-", "Day"}] & /@ res]</lang> |
|||
{{out}} |
|||
<pre>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</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |