perl从sort到施瓦茨变换

这篇博文记录perl的排序算法,从sort的简单排序到简洁漂亮的施瓦茨变换.

sort基本用法

语法 sort LIST

## sort 默认情况对文本字符按照字符顺序排序## 对字符串排序my @namelist = qw/bob marry jack simon ann tiger/;print "sort namelist:", sort "@namelist";   ##  sortedNameList: ann bob jack marry simon tiger## 对字符串排序my @sortedNumber = sort qw/11 33 21 2 1 54 43 3 222/;print "sortedNumber: @sortedNumber\n";## sortedNumber: 1 11 2 21 222 3 33 43 54

sort自定义排序

语法 sort BLOCK LIST

## 在block代码块中使用`<=>`(飞船操作符)返回一个编码值来指明排序的顺序my @sortedNumber = sort { $a <=> $b } qw/11 33 21 2 1 54 43 3 222/;print "sortedNumber: @sortedNumber\n";## 输出  sortedNumber: 1 2 3 11 21 33 43 54 222## 如果要降序排序 修改代码块为{ $b <=> $a }## 也可以 reverse @sortedNumber实现降序

• 对sort函数来说,BLOCK代码块的实现决定了排序结果是升序还是降序,$a <=> $b操作用于对数字的比较,跟如下代码一样if( $left < $right ) {return -1} elsif( $left == $right ) {return 0} else {return 1};
• 飞船操作符不关心$a $b谁在左边谁在右边的问题,对于sort来说$a $b是每次需要比较的来自LIST中的两个元素;
• 可以这样理解:$a的index总是比$b的index更小,所以用{ $a <=> $b }排序的结果是由小到大的升序LIST. 反之{ $b <=> $a }则为降序,不过为了使代码更可读,使用reverse对升序的LIST翻转获取降序LIST.

施瓦茨变换

谁的工资高

某公司有六个职员,老板需要这六个职员按工资排名的清单,下面用一份代码表示这个计算过程.

my @namelist = qw/bob marry jack simon ann tiger/;my @namelistBysalary = sort {            asksalary($a) <=> asksalary($b)        } @namelist;## asksalary()是返回salary的子例程

思考: 当要比较bob和marry的工资时,通过asksalary("bob")获取bob的工资,asksalary("marry")获取marry的工资,然后比较;当要比较bob和jack的工资时,sort代码块又要执行一次asksalary("bob"),以此类推无疑是对资源的一种浪费,尤其是员工越来越多的时候.

优化的排序方式

使用一个中间数组保存每个人的工资,这样不必每次都去asksalary().

my @namelist = qw/bob marry jack simon ann tiger/;my @array_salary = map {    [$_, asksalary($_)]  ##返回一个数组引用 [name,salary]} @namelist;my @array_salary_sorted = sort {  ## 通过工资对数组排序    $a->[1] <=> $b[1]} @array_salary;my @namelistBysalary = map {  ## 从排序后的数组中取出的就是员工排名    $_->[0];} @array_salary_sorted;

施瓦茨变换

那么将上一节中的代码组合到一起就是施瓦茨变换, 施瓦茨变换从右往左看.

my @namelist = qw/bob marry jack simon ann tiger/;##  施瓦茨变换my @namelistBysalary =  map { $_->[0] } ##第三步 从排序后的LIST中取出name组成最后的list        sort { $a->[1] <=> $b->[1] }  ##第二步 sort对LIST排序,排序依据salary        map [$_, asksalary($_)], @namelist ;  ##第一步 map返回一个LIST,LIST中的元素是数组引用[ name,salary ]print "swc: @namelistBysalary\n";

工资一样的员工年龄大的排前面

##  施瓦茨变换my @namelistBysalary =  map { $_->[0] }         ( ## 此小括号为增加可读性            sort {                  $a->[1] <=> $b->[1] or  ## 工资一样的时候                $b->[2] <=> $a->[2]  ## 年龄按照降序排            } ( map [$_, asksalary($_), askage($_)], @namelist )        );print "swc: @namelistBysalary\n";

施瓦茨变换实现多级排序

工资也一样/年龄也一样/身高…/性别…
当排序的条件越来越多,匿名数组就不方便了,把数组改为hash更好用

##  施瓦茨变换多级排序my @namelistBysalary =  map { $_->{name} }         ( ## 此小括号为增加可读性            sort {                $a->{salary} <=> $b->{salary}   or                      $b->{age} <=> $a->{age}  or                $b=>{height} <=> $b->{height}            }             ( ## 此小括号为增加可读性                map +{  ## 返回一个hash引用                    name => $_,                    salary => asksalary($_),                    age => askage($_),                    height => askheight($_),                }, @namelist            )        );print "swc: @namelistBysalary\n";