use strict; use warnings; use Data::Dumper; my $trials = 40; my %h = map { int rand $trials => 1 } 1..$trials; my @target = keys %h; print join(" ", @target); print "\n"; @target = radix_sort(@target); sub radix_sort { my @tupples = map { …

perlっぽすぎて面白くないｗ use strict; use warnings; my $trials = 30; my %h = map { int rand $trials => 1 } 1..$trials; my @target = keys %h; print join(" ", @target); print "\n"; @target = bucket_sort(@target); print join(" ", @target); p…

プログラム意味論、一階述語論理、完全性定理、不動点、ホーア論理、リアクティブシステム、時相論理 コンピュータサイエンス入門〈2〉論理とプログラム意味論作者: 田辺誠,中島玲二,長谷川真人出版社/メーカー: 岩波書店発売日: 1999/09/28メディア: 単行本…

use strict; use warnings; my $trials = 25; my %h = map { int rand $trials => 1 } 1..$trials; my @target = keys %h; @target = shear_sort(@target); sub shear_sort { my @ary = @_; my $element_num = $#ary + 1; my $column_num; while (++$column_…