Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Friday Golf: All 2-digit combinations

by vanwie (Acolyte)
on Sep 26, 2003 at 21:34 UTC ( #294550=note: print w/ replies, xml ) Need Help??


in reply to Friday Golf: All 2-digit combinations

49:
$_=9;for($x=0;$x<=9;$x++){$_.=join $x,$x..9}print
123456789 123456789 123456789 123456789 123456789


Comment on Re: Friday Golf: All 2-digit combinations
Re: Re: Friday Golf: All 2-digit combinations (29)
by BrowserUk (Pope) on Sep 26, 2003 at 21:49 UTC

    Nice approach++ You can lose a few from that though, for 39.
    $_=9;for$a(0..9){$_.=join $a,$a..9}print
    123456789 123456789 123456789 123456789 123456789

    29.
    print+9,map{join$_,$_..9}0..9
    123456789 123456789 123456789 123456789 123456789


    Examine what is said, not who speaks.
    "Efficiency is intelligent laziness." -David Dunham
    "When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
    If I understand your problem, I can solve it! Of course, the same can be said for you.

      One more stroke sh?aved:

      print+join$_,$_..9for+9,0..9

      I tried fiddling with the glob function without success. :-(

      /-\

        You'll have to take my word for it that the masked monk was just l'll ol' me, reformed golf addict eyepopslikeamosquito, who forgot to sign in when responding. D'oh! And I can't accept the lead because: 1) all I did was re-arrange BrowserUk's 29 a little; 2) mtve or thospel probably haven't seen this thread yet. :-)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-11-28 07:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (193 votes), past polls