fork download
copy 
  1. #!/usr/bin/perl
  2. use 5.016;
  3. use warnings;
  4. use utf8;
  5. binmode STDOUT => ':encoding(utf8)';
  6.  
  7. my @digits = (
  8. 	["", "いち", "", "", "", "", "", "", "", ""],
  9. 	["", "", "に", "さん", "よん", "ご", "ろく", "なな", "はち", "きゅう"],
  10. 	["", "", "", "", "", "", "ろっ", "", "はっ", ""],
  11. 	["", "", "", "", "", "", "", "", "はっ", ""],
  12. );
  13.  
  14. my @figures1 = (
  15. 	["", "", "", "", "", "", "", "", "", ""],
  16. 	["", "じゅう", "", "", "", "", "", "", "", ""],
  17. 	["", "ひゃく", "", "びゃく", "", "", "ぴゃく", "", "ぴゃく", ""],
  18. 	["", "せん", "", "ぜん", "", "", "", "", "", ""],
  19. );
  20.  
  21. my @figures2 = ("", "まん", "おく", "ちょう", "けい", "がい");
  22.  
  23.  
  24. sub _f2 { $_[0] % 4 == 0 ? $figures2[$_[0] / 4] : "" }
  25. sub _f1 { sub{ $_[0]->[$_[1]] || $_[0]->[1] }->($figures1[$_[0] % 4], $_[1]) }
  26. sub _d { $digits[$_[0] % 4]->[$_[1]] || $digits[1]->[$_[1]] }
  27.  
  28. sub f {
  29. 	($_[0] == 0) and return "ぜろ";
  30.  
  31. 	my @d = split //, reverse shift;
  32.  
  33. 	return join '', reverse
  34. 		map{ _f2(@{$_}), _f1(@{$_}), _d(@{$_}) }
  35. 		grep{ $_->[1] > 0 }
  36. 		map{ [$_, $d[$_]] }
  37. 		(0 .. $#d)
  38. }
  39.  
  40. foreach(
  41. 	0, 1, 2, 3, 8, 9, 10, 98, 99, 100, 101, 110, 111, 1100, 11000, 110000,
  42. 	300, 500, 600, 800, 900, 3000, 6000, 8000, 9000, 512, 123456789
  43. ){
  44. 	say $_, " => ", f($_);
  45. }
  46.  
Success #stdin #stdout 0.02s 4936KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 => ぜろ
1 => いち
2 => に
3 => さん
8 => はち
9 => きゅう
10 => じゅう
98 => きゅうじゅうはち
99 => きゅうじゅうきゅう
100 => ひゃく
101 => ひゃくいち
110 => ひゃくじゅう
111 => ひゃくじゅういち
1100 => せんひゃく
11000 => いちまんせん
110000 => じゅういちまん
300 => さんびゃく
500 => ごひゃく
600 => ろっぴゃく
800 => はっぴゃく
900 => きゅうひゃく
3000 => さんぜん
6000 => ろくせん
8000 => はっせん
9000 => きゅうせん
512 => ごひゃくじゅうに
123456789 => いちおくにせんさんびゃくよんじゅうごまんろくせんななひゃくはちじゅうきゅう
https://ideone.com/g2Ckst
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!