千反田える

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 ];
}

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