2008-07-27から1日間の記事一覧
use strict; use warnings; my $trials = 20; my %h = map { int rand $trials => 1 } 1..$trials; my @target = keys %h; print join ("\t", @target) . "\n"; @target = qsort(@target); print join ("\t", @target) . "\n"; sub qsort { my @ary = @_; re…
use strict; use warnings; my $trials = 10; my %h = map { int rand $trials => 1 } 1..$trials; my @target = keys %h; print join ("\t", @target) . "\n"; split_merge(0, $#target); print join ("\t", @target) . "\n"; sub split_merge { my ($begin…