Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Symmetrical Date Golf

by chipmunk (Parson)
on Mar 01, 2002 at 03:45 UTC ( #148469=note: print w/replies, xml ) Need Help??

in reply to Symmetrical Date Golf

I also found 8640 matches.

This solution is 96 characters, although it orders the results by hour and minute, rather than by year. for$h('00'..'23'){for$m('00'..'59'){print"$h:$m $_/".reverse"\n$h$m $_"for 10,20,30,'01',11,21}}
Or, by not worrying about a meaningful order to the results, I can get to 94: for$h('00'..'23'){for$M(102030011121=~/../g){print"$h:$_ $M".reverse"\n$h$_ $M"for'00'..'59'}}