Palindrome dates: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 1,174: | Line 1,174: | ||
2190-09-12 |
2190-09-12 |
||
</pre> |
</pre> |
||
=={{header|Nim}}== |
|||
<lang Nim>import strformat, times |
|||
func digits(n: int): seq[int] = |
|||
var n = n |
|||
while n != 0: |
|||
result.add n mod 10 |
|||
n = n div 10 |
|||
echo "First 15 palindrome dates after 2020-02-02:" |
|||
var count = 0 |
|||
var year = 2021 |
|||
while count != 15: |
|||
let d = year.digits |
|||
let monthNum = 10 * d[0] + d[1] |
|||
let dayNum = 10 * d[2] + d[3] |
|||
if monthNum in 1..12: |
|||
if dayNum <= getDaysInMonth(Month(monthNum), year): |
|||
# Date is valid. |
|||
echo &"{year}-{monthNum:02}-{dayNum:02}" |
|||
inc count |
|||
inc year</lang> |
|||
{{out}} |
|||
<pre>First 15 palindrome dates after 2020-02-02: |
|||
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|Perl}}== |
=={{header|Perl}}== |