March 06, 2008
コードサンプルによく出てくる FizzBuzz だが、もう飽きたから、俺はこれから NabeAtzz で行こうと思う。
期待する結果:
実行結果:
dankogai++
use strict;
use warnings;
use Encode;
use Lingua::JA::Numbers;
for my $num ( 1 .. 40 ) {
print((!($num % 3) || $num =~ /3/ ?
encode('utf8', num2ja($num, +{ style => "hiragana" })) : $num), "\n");
}
期待する結果:
実行結果:
% ./NabeAtzz.pl 1 2 さん 4 5 ろく 7 8 きゅう 10 11 じゅうに じゅうさん 14 じゅうご 16 17 じゅうはち 19 20 にじゅういち 22 にじゅうさん にじゅうよん 25 26 にじゅうなな 28 29 さんじゅう さんじゅういち さんじゅうに さんじゅうさん さんじゅうよん さんじゅうご さんじゅうろく さんじゅうなな さんじゅうはち さんじゅうきゅう 40
dankogai++
