Path: sran124!katsu From: katsu@sra.co.jp (WATANABE Katsuhiro) Message-ID: Date: 13 Jun 90 12:48:26 Organization: Software Research Associates, Inc.,Japan In-reply-to: katsu@sra.co.jp's message of 12 Jun 90 08:33:47 GMT Newsgroups: sra.test Subject: Re: Today's Junk article. [Unimaga 1990Jun little language] Distribution: sra References: フジモリ氏当選記念特別企画 「本日のゴミ記事」 この企画の趣旨: 特になし。やりたいからやってるだけ。日記をめざす。 sramha の local.admin に、各 newsgroup がどのくらい読まれているかの arbitron 統計が載っていました。それによると sra.test は 0 sra.test だそうです。 これを読んでいるあなたは、珍しい部類の人ということになりましょう。 記事 で katsu@sra.co.jp (WATANABE Katsuhiro) いはく > define p(x){ > if (x == 0) "0" > if (x == 1) "1" > if (x == 2) "2" > if (x == 3) "3" > if (x == 4) "4" > if (x == 5) "5" > if (x == 6) "6" > if (x == 7) "7" > if (x == 8) "8" > if (x == 9) "9" > if (x > 9) { > d = p(x / 10) > d = p(x % 10) > } > } > comma.bc で工夫してあるのは、数を文字列として表示して改行を避けている X-) bc ではこれが限界だと思いますが、それにしてもこの p という関数は ひどいですね。 bc でだめならば、1つ低い dc のレベルで書いてみてはどうでしょうか? というわけでやってみたのが次です。 ---------------- ファイル comma.dc 0 k ? [ 48 + P] sp [ lpx q] sz d 0 =z [ _1 * [-] P] sm d 0 >m [ d s. 10 % l. 10 / ldx] sr [ d 10 !>r] sd ldx [ [,] P] sc [ z 3 % 0 =c lox] ss [ lpx z 0