laziness, impatience, and hubris PerlMonks

### Re: Re: Friday Golf: (I think I got it *this* time)

by BrowserUk (Pope)
 on Sep 26, 2003 at 13:59 UTC ( #294421=note: print w/replies, xml ) Need Help??

62? (Does anyone have a neat one liner for verifying this? trying to check the results is doing my eyes in:)

 \$_=\$n='00';/\$n/ or\$_.=\$n and s/(.)\1\1/\$1\$1/while\$n++<99;print 123456789 123456789 123456789 123456789 123456789 123456789 123

58!
 \$_=\$n='00';/\$n/ or\$_.=\$n,s/(.)(?=\1\1)//while\$n++<99;print 123456789 123456789 123456789 123456789 123456789 123456789 123

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.

• Comment on Re: Re: Friday Golf: (I think I got it *this* time)

Replies are listed 'Best First'.
Re3: Friday Golf: (I think I got it *this* time)
by dragonchild (Archbishop) on Sep 26, 2003 at 15:09 UTC
Congratz! Though, I think your algorithm works only because of a peculiarity in 00..99. If you extend it to 000..999, your algorithm doesn't scale, while mine does. :-)

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

Re^3: Friday Golf: (I think I got it *this* time)
by PhilHibbs (Hermit) on Sep 26, 2003 at 14:11 UTC
I believe that is the first correct solution! Congratulations, let the ++'s flow!

See my original post for the checker.

Create A New User
Node Status?
node history
Node Type: note [id://294421]
help
Chatterbox?
 [1nickt]: Is anyone using Method::Signatures ?

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2017-11-24 13:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
In order to be able to say "I know Perl", you must have:

Results (349 votes). Check out past polls.

Notices?