Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

(Ovid) Re: TMTOWTDI Puzzle: Generating a range of numbers

by Ovid (Cardinal)
on Dec 19, 2001 at 05:04 UTC ( #132989=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    perl -e "push@_,$_ for reverse q.e...q.n.;for(@_){$_=unpack(q|c|,$_);@
    +a=split//;shift@a;$_=join q||,@a};print $_+$l,$/ for reverse@_"
    
  2. or download this
    push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack(q|c|,$_);@a=split//
    +;
    shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse @
    +A
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://132989]
help
Chatterbox?
[choroba]: Aren't they the standard X colours?
[ambrus]: choroba: that's not clear, since Tk runs on systems that don't even have X.

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2017-10-17 12:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (227 votes). Check out past polls.

    Notices?