ãã‚ãã‚ FizzBuzz ã«é£½ã㟠: ã«ã½ãŸã‚“ç ”ç©¶æ‰€ã‚³ãƒ¼ãƒ‰ã‚µãƒ³ãƒ—ãƒ«ã«ã‚ˆã出ã¦ãã‚‹ FizzBuzz ã ãŒã€ã‚‚ã†é£½ããŸã‹ã‚‰ã€ä¿ºã¯ã“ã‚Œã‹ã‚‰ NabeAtzz ã§è¡Œã“ã†ã¨æ€ã†ã€‚ 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 ã•ã‚“ã˜ã‚…
{{#tags}}- {{label}}
{{/tags}}