Palindrome dates: Difference between revisions
→{{header|Nim}}
Line 1,216:
2190-09-12
</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}}==
| |||