首页 | 新闻 | 交流 | 问吧 | 文档 | 手册 | 下载 | 博客

施瓦茨变换(排序)

作者:  时间: 2010-10-09
perl中的施瓦茨变换:
my @output =
map $_->[0],
sort{$a->[1] <=> $b->[1]}
map [$_,-s $_],     #一个数组引用
@array;               
刚看这段的时候很郁闷,可以把
sort{$a->[1] <=> $b->[1]}
这行注掉,就能看出来效果了,
数组的引用不局限于这些。可以根据自己的需求进行扩展。