Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

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'}}


Comment on Re: Symmetrical Date Golf
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://148469]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2014-09-21 19:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (175 votes), past polls