Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
palindromic dates
#perl 5.22.1 foreach my $yyyy (2000..2999){ my $mm = substr($yyyy,3,1).substr($yyyy,2,1); my $dd = substr($yyyy,1,1).substr($yyyy,0,1); next if ($mm >12 or $mm ==0); if ($mm=~/^01|03|05|07|08|10|12/){ next if ($dd >31 or $dd==0); } elsif ($mm =~/02/){ my $FebDays=28+(($yyyy % 4)?0:1); next if ($dd >$FebDays or $dd==0) } else{ next if ($dd >31 or $dd==0); } print $mm," ",$dd," ",$yyyy, " ",$mm.$dd.$yyyy, "\n"; }
run
|
edit
|
history
|
help
0
doctor
1st code
testing dereference of anonymous routines
version tester
PWC 059-1
5_5
Test 41/2
Basics
Lol
Anchal 101712