DouKaku?

#!/usr/bin/perl

my $num = $ARGV[0];

my @name0 = ('', qw(一 二 三 四 五 六 七 八 九));
my @name1 = ('', qw(十 百 千));
my @name2 = ('', qw(万 億 兆));

my $i = 0;
my $j = 0;
my $res = '';
while($num =~ s/(\d)$//) {
  my $d = $1;
  if($d > 1) {
    $res = $name0[$d] . $name1[$i] . $res;
  }
  elsif($d == 1 and $i != 0) {
    $res = $name1[$i] . $res;
  }
  $i++;
  if($i % 4 == 0) {
    $j++;
    $i = 0;
    $res = $name2[$j] . $res if($num ne '');
  }
}

print $res, "\n";

def num2K(num):
  if num == 0: return u"零"
  s = []
  
  for i,v in enumerate(map(int, reversed(str(num)))):
    if i in num2K.table:
      s.append(num2K.table2[v]+num2K.table[i]+(i > 3 and u" " or u""))
    elif v > 1:
      s.append(num2K.table2[int(v)]+num2K.table[i%4])
    elif v != 0:
      s.append(num2K.table[i%4])
  return "".join(reversed(s))
num2K.table = {0:u"", 1:u"十",2:u"百",3:u"千",4:u"万",8:u"億",12:u"兆",16:u"京"}
num2K.table2 = {0:u"",1:u"一",2:u"二",3:u"三",4:u"四", 5:u"五", 6:u"六", 7:u"七", 8:u"八", 9:u"九"}



print num2K(input(u">>"))

object num2K {
  val table = Map(0->"", 1->"\u5341",2->"\u767e",3->"\u5343",4->"\u4e07",8->"\u5104",12->"\u5146",16->"\u4eac")
  val table2 = Map(0->"",1->"\u4e00",2->"\u4e8c",3->"\u4e09",4->"\u56db", 5->"\u4e94", 6->"\u516d", 7->"\u4e03", 8->"\u516b", 9->"\u4e5d")
  def apply(num:long):String = {
    if(num == 0) return "\u96f6"
    val lst = num.toString.reverse.map(x=>Integer.parseInt(x+""))
    (0 to lst.length-1).foldLeft(List("")){(r, i) => 
      if(table.contains(i)) {
        table2(lst(i))+table(i)+(if(i>3){" "}else{""})::r
      }else if(lst(i) > 1){
        table2(lst(i))+table(i%4)::r
      }else if(lst(i) != 0){
        table(i%4)::r
      }else{
        r
      }
    }.mkString("")
  }
}

print(">>")
println(num2K(readLong))

public class Test {
	public static void main(String[] args) {
		System.out.println("args[0] = " + args[0]);
		String res = num2K(args[0]);
		System.out.println(res);
	}
	static String[] unitStr = new String[] { "", "万", "億", "兆", /*"京", "垓", 
	"穰", "溝", "澗", "正", "載", "極",
	"恒河沙", "阿僧祇", "那由他", "不可思議", "無量大数",*/ }; 
	static String[] unitStr2 = new String[] { "千", "百", "十", };
	static String numStr = "零一ニ三四五六七八九";
	public static String num2K(long num) {
		String s = Long.toString(num);
		return num2K(s);
	}
	public static String num2K(String s) {
		if (s.length() == 1) {
			return Character.toString(numStr.charAt(s.charAt(0) - '0'));
		}
		StringBuffer sb = new StringBuffer();
		boolean flag = false;
		for (int i = 0; i < s.length(); i++) {
			int mod = 3 - (s.length() - i - 1) % 4;
			int div = (s.length() - i - 1) / 4;
			if (div >= unitStr.length) {
				return null;
			}
			int num = s.charAt(i) - '0';
			flag |= num != 0;
			
			if (num == 0 && (mod != 3 || div != 0) && (!flag || mod != 3)) {
				continue;
			}
			if (num == 0 || num == 1 && mod != 3 && !(mod == 0 && div != 0)) {
			} else {
				sb.append(numStr.charAt(num));
			}
			if (mod == 3) {
				sb.append(unitStr[div]);
				flag = false;
			} else {
				sb.append(unitStr2[mod]);
			}
		}
		return sb.toString();
	}
}

# coding: shift_jis

class SolveError(RuntimeError):
    pass

def split(n, m):
    while n:
        yield n % m
        n //= m

def solve(s):
    try:
        n = int(s)
    except ValueError:
        raise SolveError("not an integer")
    if not(0 < n < 10000000000000000):
        raise SolveError("not in range")

    large = [u"", u"万", u"億", u"兆"]
    small = [u"", u"十", u"百", u"千"]
    digit = [u"", u"一", u"二", u"三", u"四", u"五", u"六", u"七", u"八", u"九"]
    def convert():
        for i_large, n_large in enumerate(split(n, 10000)):
            if n_large:
                if i_large:
                    yield u" "
                yield large[i_large]
                for i_small, n_small in enumerate(split(n_large, 10)):
                    if n_small:
                        yield small[i_small]
                        if not(n_small == 1 and i_small):
                            yield digit[n_small]
    return "".join(reversed(list(convert())))

def main():
    while 1:
        try:
            s = raw_input("> ")
        except EOFError:
            break
        try:
            print solve(s)
        except SolveError, e:
            print "error:", e

if __name__ == '__main__':
    main()

function num2K(num){
  table = {0=>"", 1=>"十",2=>"百",3=>"千",4=>"万",8=>"億",12=>"兆",16=>"京"}
  table2 = ["","一","二","三","四","五","六","七","八","九"]
  if (num == 0) return "零"
  i = 0
  s = {}
  for (v : project(reverse(string(num)), {a->a-'0'})){
    if (table.containsKey(i)){
      s.add(table2[v] + table[i] + (i > 3 ? " " : "" ))
    } else if (v > 1){
      s.add(table2[v] + table[i%4])
    } else if (v != 0){
      s.add(table[i%4])
    }
    i++
  }
  join("", reverse(s))
}

print(">>"); flush(); println(num2K(readLine(System.in))) 

(use text.tree)
(use util.list)

(define (positive->kansuji n)
  (define (keta-split n keta)
    (receive (q r) (quotient&remainder n keta)
             (if (< q keta)
                 (if (zero? q)
                     (list r)
                     (list r q))
                 (cons r (keta-split q keta)))))
  (define (add-tanni lst tanni)
    (fold
     (lambda (x t l)
       (cons (list (cond ((and (equal? 1 x) (not (equal? t ""))) "")
                         ((integer? x)
                          (list-ref '("" "一" "二" "三" "四" "五" "六" "七" "八" "九") x))
                         (else x))
                   (if (and (equal? 0 x) (not (equal? t "")))
                       ""
                       t))
             l))
     '() lst tanni))
  (tree->string
   (intersperse " " (add-tanni (map (lambda (n)
                                      (add-tanni (keta-split n 10)
                                                 '("" "十" "百" "千")))
                                    (keta-split n 10000))
                               '("" "万" "億" "兆")))))

(defun number-to-kanji (num)
  (let ((digit   #("零" "一" "二" "三" "四" "五" "六" "七" "八" "九"))
        (subunit #("" "十" "百" "千"))
        (unit    #("" "万" "億" "兆")))
    (loop for i from 0
          initially (if (= num 0) (return (aref digit 0)))
          for (n m) = (multiple-value-list (floor num 10000)) ; 4 桁ずつ区切る
          until (and (= n 0) (= m 0))
          for value = (loop for j from 0 to 3 ; 位
                            for x = (mod (floor m (expt 10 j)) 10) ; 数字
                            when (/= x 0) ; 零千 零百 零十 対策
                            collect (format nil "~A~A" 
                                            ; 一千 一百 一十 対策
                                            (if (and (= x 1) (> j 0)) "" (aref digit x)) 
                                            (aref subunit j)))
           when value appending (cons (aref unit i) value) into result
           do (setf num n)
           finally (return (apply #'concatenate (cons 'string (reverse result)))))))

module Main where

import System.Environment
import Data.List
import qualified Data.UTF8 as U

main = do { a:_ <- getArgs
          ; U.putStrLn $ toKanSuuji a
          }

toKan,toKan' :: String -> String
toKan  = concat . reverse .zipWith mkname base10000 
       . map (concat . reverse . conv4) . slices 4
toKan' = concat . reverse . zipWith mkname baseBig 
       . map toKan . slices 8

toKanSuuji str
 = case splitAt 52 $ reverse str of
     (s,"") -> toKan $ padding 4 s
     (s,b) -> if length b > 40
                 then "こんな大きな数の漢字数字名は知りません"
                 else (toKan' $ padding 8 b) ++ toKan s
   where
     padding n s = s ++ replicate ((n - (length s `mod` n)) `mod` n) '0'

slices :: Int -> [a] -> [[a]]
slices n = unfoldr phi
  where phi [] = Nothing
        phi xs = Just $ splitAt n xs

base1 = ["","一","二","三","四","五","六","七","八","九"]
base10 = ["","十","百","千"]
base10000 = ["","万","億","兆","京","外","禾予","穣","溝","澗","正","載","極"]
baseBig = ["恒河沙","阿僧祇","那由多","不可思議","無量大数"]

conv4 = zipWith mkname' base10 . map ((base1 !!) . read . (:[]))

mkname "" "" = ""
mkname "" d = d
mkname p "" = ""
mkname p d = d++p

mkname' "" "" = ""
mkname' "" d = d
mkname' p "" = ""
mkname' p "一" = p
mkname' p d = d++p

| 数 漢数字 |
数 := 1732050807568877.
漢数字 := ''.
#('' 万 億 兆 京) do: [:大位 |
    | 大位の数 |
    大位の数 := ''.
    #('' 十 百 千) do: [:小位 |
        | 小位の数 |
        小位の数 := #('' 一 二 三 四 五 六 七 八 九) at: 数 \\ 10 + 1.
        数 := 数 // 10.
        小位の数 ifNotEmpty: [
            (小位 notEmpty and: [小位の数 = '一']) ifTrue: [小位の数 := ''].
            大位の数 := 小位の数, 小位, 大位の数]].
    大位の数 ifNotEmpty: [漢数字 := 大位の数, 大位, 漢数字]].
^漢数字   "=> '千七百三十二兆五百八億七百五十六万八千八百七十七' "

(require 'cl)
(defun number-to-kanji (str)
  (interactive "sNumber: ")
  (and (> (length str) 52) (error "52桁まで"))
  (labels ((nsplit (str)
             (labels ((rev (s) (concat (nreverse (mapcar #'identity s)))))
               (setq str (rev str))
               (let ((start 0) r)
                 (while (string-match ".\\{1,4\\}" str start)
                   (push (match-string 0 str) r)
                   (setq start (match-end 0)))
                 (mapcar #'rev r))))
           (kanji (str)
             (apply #'concat
                    (nreverse
                     (mapcar*
                      #'(lambda (i n)
                          (let ((s (nth (string-to-number n)
                                        '("〇" "一" "二" "三" "四" "五" "六" "七" "八" "九"))))
                            (and (> i 0) (string= s "一") (setq s ""))
                            (if (string= s "〇") ""
                                (concat s (nth i '("" "十" "百" "千"))))))
                      '(0 1 2 3) (nreverse (mapcar #'string str)))))))
    (let ((l (nreverse (mapcar #'kanji (nsplit str)))))
      (funcall
       (if current-prefix-arg #'insert #'message)
       (apply #'concat
              (nreverse
               (mapcar* #'(lambda (i s)
                            (concat s (if (string= s "") ""
                                          (nth i '("" "万" "億" "兆" "京" "垓" "(禾予)" "穣" "溝" "澗" "正" "載" "極")))))
                        (number-sequence 0 (- (length l) 1)) l)))))))