いろんな言語で宿題 第五編at TECH
いろんな言語で宿題 第五編 - 暇つぶし2ch486:デフォルトの名無しさん
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枚


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch