10/10/02 13:50:54
>>484
使用言語：J
a=:10000 5000 1000 500 100 50 10 5 1
b=:,;._1',一万,五千, 千,五百, 百,五十, 十, 五, 一'
f=:}:@;@(((}:@>@{.,({.@>@}.)#:{:@>@{.);}.@>@{:)^:(#@>@}.))
g=:3 :'(b,"1''円:''),.(":,.f y;a),"1''枚'''
g 12345
一万円:1枚
五千円:0枚
千円:2枚
五百円:0枚
百円:3枚
五十円:0枚
十円:4枚
五円:1枚
一円:0枚