Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Rosetta Code: Long List is Long -- oneliner

by Discipulus (Canon)
on Dec 01, 2022 at 08:00 UTC ( #11148471=note: print w/replies, xml ) Need Help??

in reply to Rosetta Code: Long List is Long

Hello eyepopslikeamosquito,

> So please feel free to respond away in your favourite language!

If oneliner is a language..

cat lill01.txt camel 42 pearl 94 dromedary 69 cat lill02.txt camel 8 hello 12345 dromedary 1 perl 94 perl -lane "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort{$r{$b}<=>$r +{$a}||$a cmp $b}keys %r" lill01.txt lill02.txt # or shortened by one char because perl -a implies -n perl -lae "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort{$r{$b}<=>$r{ +$a}||$a cmp $b}keys %r" lill01.txt lill02.txt hello 12345 pearl 94 perl 94 dromedary 70 camel 50

Deparsed for newcomers..

perl -MO=Deparse -lane "$r{$F[0]}+=$F[1]}{print qq($_\t$r{$_})for sort +{$r{$b}<=>$r{$a}||$a cmp $b}keys %r" BEGIN { $/ = "\n"; $\ = "\n"; } # provided by: perl +-l LINE: while (defined($_ = readline ARGV)) { # provided by: perl +-n (cycling files in a loop but Not printing lines) chomp $_; # also provided by: +perl -l our @F = split(' ', $_, 0); # provided by: perl +-a for Auotosplit, it puts stuff into @F automatically $r{$F[0]} += $F[1]; } # eskimo greeting.. { # ..see perlsecret print "$_\t$r{$_}" foreach (sort {$a cmp $b unless $r{$b} <=> $r{$ +a};} keys %r); } -e syntax OK


There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11148471]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2023-03-27 19:42 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (65 votes). Check out past polls.