Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Closures and sort

by Cine (Friar)
on Aug 04, 2003 at 20:38 UTC ( #280795=note: print w/replies, xml ) Need Help??


in reply to Closures and sort

You are just missing a few bits. $_->[0] should be $_[0] and then you must put $a dn $b on the param list.
use strict; my @list = qw/ box cow dog apple ant/; # A "normal" use of sort my @sorted = sort {$a cmp $b} @list; print join (',', @sorted), "\n"; #return the sort sub and count in a list sub mcc { my $count = 0; return (sub {$count++; $_[0] cmp $_[1] }, $count); } # why can't I say something like mcc()[0] ??? print join ',',sort { &{(mcc())[0]}($a,$b) } @list;
But you dont want to call mcc each time. That will create a new closeure each time!

T I M T O W T D I

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2022-08-17 20:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?