Question

这应该将$('.registerSilver').click(function (e) { e.preventDefault(); debugger; window.location = 'register.aspx'; });的内容按降序排列，但是nums不会更改sort的内容。我读过的许多网站都说要通过引用传递，但我认为我没有正确地取消引用该参数。忍受，这是我的第一个Perl程序：）

nums

Answer 1

@Matt Jacob帮助了我。这就是我想要的。

#! /usr/bin/env perl

sub selection_sort {
    my $arr = shift;
    my $len = scalar @$arr;

    for (my $i = 0; $i < $len-1; $i++) {
        my $max = $i;
        for (my $j = $i + 1; $j < $len; $j++) {
            if (@$arr[$j] > @$arr[$max]) {
                $max = $j
            }
        }
        my $temp = @$arr[$max];
        @$arr[$max] = @$arr[$i];
        @$arr[$i] = $temp;
    }
}

print "Enter 10 numbers: ";
my $input = <STDIN>;
my @integers = split ' ', $input;

print "Unsorted: @integers\n";
selection_sort \@integers;
print "Sorted: @integers\n";

无法修改数组参数

1 个答案: