シェーカーソート - Schreibe mit Blut

シェーカーソート - Schreibe mit Blut

これは結構おもしろかった use strict; use warnings; my $trials = 15; my %h = map { int rand $trial...概要を表示 これは結構おもしろかった use strict; use warnings; my $trials = 15; my %h = map { int rand $trials => 1 } 1..$trials; my @target = keys %h; print join(" ", @target); print "\n"; @target = shaker_sort(@target); sub shaker_sort { my @ary = @_; my ($begin, $end) = (0, $#ary); my $flag = 1; while($flag) { undef $flag; my $temp = $end; for my $i ($begin..$end-1) { next if $ary[$i] < $ary[$i+1]; ($ary[$i], $ary[$i+

• perl