千反田える

chitanda.pl

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

my @numeric_characters = ('', '一', '二', '三', '四', '五', '六', '七', '八', '九');
my @digits = ('', '十', '百', '千');

my @alphabets = (
	'えー',
	'びー',
	'しー',
	'でぃー',
	'いー',
	'えふ',
	'じー',
	'えいち',
	'あい',
	'じぇー',
	'けー',
	'える',
	'えむ',
	'えぬ',
	'おー',
	'ぴー',
	'きゅー',
	'あーる',
	'えす',
	'てぃー',
	'ゆー',
	'ぶい',
	'だぶりゅー',
	'えっくす',
	'わい',
	'ぜっと'
);

for my $count (1 .. 1000) {
	my @number_kanji;
	my @number = reverse($count =~ /\d/g);
	for my $i (0 .. $#number) {
		push (@number_kanji, $digits[$i]) if $number[$i] >= 1;
		push (@number_kanji, $numeric_characters[ $number[$i] ]) if ($number[$i] > 1) or ($i == 0);
	}

	print reverse(@number_kanji);
	say '反田' . $alphabets[ ($count - 1) % 26 ];
}

最後が「一千反田える」という表示になるのが気に入らない

Rev. 2では一番最後が「千反田える」と出力されるようになったが、1の位の「一」がすべて省略されてしまうので、11のときも「十反田けー」が出力されてしまう。

0ケタ目 (すなわち一の位) については漢数字を出力するようにロジックを変えたら完璧になった。完成!