Perl 快排

看了下算法導論中的快排，實現方法不太一樣，重新練習一下。

如圖爲比較過程中的移動：

代碼：

# 遞歸
sub qsort2 {
    return () unless @_;
    (
        qsort( grep        { $_ < $_[0] } @_[ 1 .. $#_ ] ),
        $_[0], qsort( grep { $_ >= $_[0] } @_[ 1 .. $#_ ] )
    );
}

# 非遞歸
sub qsort {
    if ( !@_ ) {
        return ();
    }
    else {

        # 以$_[0] 作爲基準比較，前後兩個方向逼近，不象算法導論中單向向右逼近
        my $low  = 1;
        my $high = $#_;
        while ( $high >= $low ) {
            while ( $low <= $high && $_[$low] < $_[0] ) {
                $low++;
            }
            while ( $high >= $low && $_[$high] >= $_[0] ) {
                $high--;
            }
            print "@_ => $low $high\n";
            if ( $low < $high ) {
                ( $_[$low], $_[$high] ) = ( $_[$high], $_[$low] );
            }
            print "@_ \n";
        }

        # 與基準位的判斷，不同則互換
        if ( $high != 0 ) { ( $_[0], $_[$high] ) = ( $_[$high], $_[0] ) }
        print "----------\n@_\n---------- \n";
        qsort( @_[ 0 .. ( $high - 1 ) ] );
        qsort( @_[ ( $high + 1 ) .. $#_ ] );
    }
}

@a = map { int rand 100 } 1 .. 10;
print "@a\n";
qsort(@a);
print "@a\n";