既約分数 - Perl5,Perl6 and Javascript : 404 Blog Not Found2006年04月03日23:01 カテゴリMathLightweight Languages 既約分数 - Perl5,Perl6 and Javascript 折角Audreyがいるので、Pugs向きの問題を探していたら、hyukiさんの既約分数クイズに対する答えがあったので。 すでにPerlによる解答もhyuki版があるのだけど、失礼ながらあまりPerlish でないので。他の人の解答も見たのだけど、なぜかHashを使った解答が皆無なので まずはPerl5版から。 use strict; use warnings; my $max = shift || 4; my %result; for my $denominator (1..$max){ for my $numerator (0..$denominator){ $result{ $numerator/$denominator }
