骏马金龙

网名骏马金龙,钟情于IT世界里的各种原理和实现机制,强迫症重症患者。爱研究、爱翻译、爱分享。特借此一亩三分田记录自己成长点滴!!!
我本问道人,道心不坚,必将与道无缘!

排序变换思路:施瓦茨变换

施瓦茨变换(Schwartzian Transform)是一种排序思路。先看看它的结构:

my @output_data =
    map { EXTRACTION },
    sort { COMPARISON }
    map [ CONSTRUCTION ],
@input_data;

施瓦茨变换:

  • construction:构造一个由原始数据以及被处理后准备用来做排序属性的元素组成的列表A
  • comparison:从列表A中取得元素进行排序,得到排序后列表B
  • expraction:从列表B中取得原始元素得到新列表C
  • 列表C就是期待的排序结果

先举个例子,文件test.txt中的内容如下:

1     mac     2000    500
2     winxp   4000    300
3     bsd     1000    600
4     linux   1000    200
5     SUSE    4000    300
6     Debian  600     200

现在需要使用perl对该文件进行排序,以第三字段为主排序依据(升序),第四字段(升序)、第一字段(降序)分别为辅助排序依据。

下面这种代码是谁都会的:

open DATA,"<","/perlapp/test.txt"
    or die "Can't open file: $!";

print sort {
                my @x = split / +/,$a;
                my @y = split / +/,$b;
                $x[2] <=> $y[2] 
                or $x[3] <=> $y[3]
                or $y[0] <=> $x[0]
           } <DATA>;

上面的排序过程中,对每一行都进行了一次split函数处理,换句话说,每一次比较操作都进行了两次split。

使用施瓦茨变换,可以将每次比较过程中每一种函数的多次操作都减少为一次,正如上面的split可以减少为一次(性能并没有更优化,只是代码减少了,更漂亮了)。

以下是使用Schwartzian Transform实现上述排序需求的代码:

open DATA,"<","/perlapp/test.txt" or die "Can't open file: $!";

print map { $_->[0] }
      sort { 
          $a->[3] <=> $b->[3] 
          or $a->[2] <=> $b->[2] 
          or $b->[1] <=> $a->[1] }
      map { [ $_,split / +/,$_ ] } <DATA>;

在上面施瓦茨变换代码中(从下往上看):

  • 最后一个map函数,将<DATA>中的元素重新构建成了一个新的匿名列表A,这个列表中除了原始文件中的每一行数据,还有对每一行进行split后的元素,因为每一行都是空格分隔的,所以split后的每一个元素都直接作为匿名列表的元素。大概如下:["6 Debian 600 200","6","Debian","600","200"]
  • sort函数对匿名列表A进行排序,取列表A中需要排序的元素进行排序,排序后得到一个新的排序列表B,这个列表中仍然包含了原始数据和split后的各元素,只不过它们是经过排序后的
  • 第一个map函数从排序后的列表B中取出第一个元素,也就是文件中的元素数据,得到最终的排序列表C
posted @ 2018-10-05 10:19  骏马金龙  阅读(...)  评论(...编辑  收藏