Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Perl 6 implementation of the following Perl 5 code

by konnjuta (Acolyte)
on May 27, 2013 at 08:58 UTC ( #1035374=perlquestion: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    ID    SOURCE    SCORE1    SCORE2    SCORE3    .....    SCOREN
    66521    SRC1        12        34        27            67
    88921    SRC2        34        56        59            88
    66524    SRC1        56        66    
    3341    SRC1        44        59        67
    
  2. or download this
    print join " ",  reverse split foreach  
        map  { $_->[0] } 
        sort { $a->[1]<=>$b->[1] || $a->[0] <=> $b->[0] } 
        map  { [ $_ , (split)[-1] ] } 
        grep { /SRC1/ } <> ;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1035374]
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2014-07-12 18:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (240 votes), past polls