Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Friday Golf: All 2-digit combinations

by hardburn (Abbot)
on Sep 26, 2003 at 14:18 UTC ( #294431=note: print w/replies, xml ) Need Help??


in reply to Friday Golf: All 2-digit combinations

Since most solutions have the numbers running together, I wrote up this little one-liner to help split the pairs apart:

perl -ne 'print join " ", sort unpack("A2" x (length()/2), $_)'

Just pipe the output of your Golf solution into it.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://294431]
help
Chatterbox?
[thao4]: thao4
[hippo]: Indeed you are.
[thao4]: Hi all, I am new in perl. I need do somthing in perl: exemple: - search a patern "CADRE 1.1 CPU" in one file.txt - incremente +30 lines from the line with the patern found - replace the patern "Model Regle" by "Heath Rule A" in this new line (30 line
[marto]: good morning all
[hippo]: Welcome. Tell me, have you read perlintro? That's a great place to start.
[thao4]: I seach to do that since a week but I can't found the answer in google. Thank for your help

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2018-02-21 09:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (276 votes). Check out past polls.

    Notices?