Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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?

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (12)
As of 2015-06-03 14:41 GMT
Find Nodes?
    Voting Booth?

    What kind of chocolate gives you the most pleasure?

    Results (132 votes), past polls