Palindrome dates: Difference between revisions
Content added Content deleted
| Line 1,220: | Line 1,220: | ||
<lang Mathematica>today = DateList[Today]; |
<lang Mathematica>today = DateList[Today]; |
||
res = {}; |
res = {}; |
||
PrintTemporary[Dynamic[{i, Length[res]}]]; |
|||
i = 0; |
i = 0; |
||
While[Length[res] < 15, |
While[Length[res] < 15, |
||
| Line 1,247: | Line 1,246: | ||
2130-03-12 |
2130-03-12 |
||
2140-04-12</pre> |
2140-04-12</pre> |
||
=={{header|Nim}}== |
=={{header|Nim}}== |
||