On Dec 11, Paul Johnson said: >On Wed, Dec 11, 2002 at 10:52:53PM +0100, Jenda Krynicky wrote: > >> From: Rob Richardson <[EMAIL PROTECTED]> >> > >> > > @website[ >> > > map $_->[0], >> > > sort { $b->[1] <=> $a->[1] } >> > > map [ $_, $array[$_] ], >> > > 0 .. $#array >> > > ] = 1 .. @array; >> >> This is something most Perl programmers would have a hard time >> understanding. The construct comes from functional languages. > >OK. I admit it. I like functional programming :-)
No one has noted yet that the Schwartzian transform here is TOTALLY redundant. @website[ sort { $array[$b] <=> $array[$a] } 0 .. $#array ] = 1 ..@array; -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]