Rick Klement wrote:
> And replacing one map with a sort, taking advantage of the fact that
> in 5.8, sort is stable, saves 10 strokes:
#!perl -lp
/ /;$a{pack A10,$'}.=" $`"}for(sort{$b-$a}map$a{$_}=~y/ //.
" $_:$a{$_}",sort keys a){
Very nice. Hmm, if:
"map sort [SORT BLOCK] map" is the Schwartzian Transform; and
"map sort [NO SORT BLOCK] map" is the Guttman-Rosler Transform
does that make:
"sort [SORT BLOCK] map sort" the Klement Transform?
Or should that read Klementian or even Klementine Transform? :-)
> P.S. Ever wonder what yours is going to do when someone has more
> than nine modules ?
Argument "-" isn't numeric in subtraction (-) at a.pl line 2 ...
I suppose I could change 9 to 99 and 's/./' to 's/../'.
/-\
http://search.yahoo.com.au - Yahoo! Search
- Looking for more? Try the new Yahoo! Search
