go ahead... be a heretic PerlMonks

### Re: TMTOWTDI Puzzle: Generating a range of numbers

by jynx (Priest)
 on Dec 19, 2001 at 11:27 UTC ( #133042=note: print w/replies, xml ) Need Help??

The first is my favorite, and doesn't remotely work under warnings or strict. The second is a recusive solution for fun. The third is the trivialization of both solutions.

#1 \$\$_=~/((((((((((.))))))))))/for length\$"..length\$"x(\$^F<<\$^F).\$"x\$^ +F; print map\$_.\$",sort{chr(\$a)cmp chr(\$b)}grep!(\$|eq\$_)&&/\d/,keys%:: #2 sub r{ (\$_,\$a)=@_;\$;=join'',/(.)/,\$_;print\$",length;r(\$;,\$a)if!(length\$; +eq\$a) } r\$",length\$"x(\$^F<<\$^F).\$"x\$^F.\$" #3 print \$_ for length\$"..length\$"x(\$^F<<\$^F).\$"x\$^F
Thanx for the fun,
jynx

update: d'oh, atcroft beat me to recursion...
update2: reformatted, hopefully it looks better

Create A New User
Node Status?
node history
Node Type: note [id://133042]
help
Chatterbox?
 [marioroy]: Is List::Util::XS a core Perl module? [stevieb]: corelist List::Util::XS says "List::Util::XS was first released with perl v5.10.1" [stevieb]: so yes, since v5.10.1 :) [MidLifeXis]: According to [metaperl:// corelist], Perl 5.10.1 Lady_Aleena blurbles. One of her favorite modiles is now in "maintenance mode" in favor of a new fangled module. [MidLifeXis]: D'oh. Slow out of the gate. [marioroy]: Thanks stevieb, MidLifeXis. [MidLifeXis]: corelist Typo. Wow. Time to go, fingers are malfunctioning.

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2017-05-24 17:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favorite model of computation is ...

Results (185 votes). Check out past polls.