Perl-Sensitive Sunglasses 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

Replies are listed 'Best First'.
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. :-)

Create A New User
Node Status?
node history
Node Type: note [id://294550]
help
Chatterbox?
 [choroba]: erix :-D

How do I use this? | Other CB clients
Other Users?