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.
| [reply] |
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.
| [reply] |
| [reply] |
44 if you die ;) why won't you die??? lol
I do realize that the line number may not be wanted, but I just couldn't resist ;D
| MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" | | I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). | | ** The third rule of perl club is a statement of fact: pod is sexy. |
| [reply] |
| [reply] |
