2008-03-23 n進数変換 Perl Perl表技集にn進数変換を追加しました。これを使うと倍数になる13進数が比較的簡単に書けるようになります。 use strict; use Math::BaseCalc; my $calc13 = Math::BaseCalc->new(digits => [0..9, 'a'..'c']); for (my $i = 10; ; $i++) { if ($calc13->from_base($i) % $i == 0) { print $i, "\n"; last; } }