99円のへたれ学習帳

数値をカンマで区切る

TIPS, ショートコーディング | 20:48

http://nadesiko.g.hatena.ne.jp/kisaburo/20080415/name

ただ単に数値を区切るだけなら、「通貨形式」を使って以下のようにできるようです。

"123456"を通貨形式
表示　#　→　123,456

　

---

自分はたまにTOPOZOさんなどとコードをいかに短くするか、という遊びをするのですが、今回はなでしこ標準機能で済ますのはつまらない(?)ということで、以下の仕様の関数を作ってみました。もちろん短く(^ ^;

• 引数として数値(型は文字列)と区切る桁を与える
• 区切る桁ごとにカンマで数値を区切って返す

というわけでTOPOZOさんのコード。

●カンマ区切る(I,N)
　　qとは整数=文字数(I);pとは整数=INT(q/N);(p-NOT(q%N))回;I=文字挿入(I,q-(回数*N)+1,",");(回数=p)なら戻( I)

NOTやらなにやら、無理矢理ワンライナーにするテクニックがいっぱいです。読めません＞＜

●カンマ区切る(A,N)
　　Bとは文字列;(文字数(A)%N)ならB="("&リフレイン("#",文字数(A)%N)&")"
　　(文字数(A)/N)回;追加(B,"("&リフレイン("#",N)&")")
　　一致(A,B);戻(文字右端削除(置換(抽出文字列,改行,","),1))

あえてワイルドカードを使ってみたようです。原理がよくわかりません＞＜

で、自分の書いたものですが

●カンマ区切(N,X)
　　正規表現置換(N,`\G((?:^[-+])?\d{1,`&X&`})(?=(?:`&リフレイン(`\d`,X)&`)+(?!\d))`,`$1,`)

ということでPerlメモのそのまんまですorz

ほら、ワンライナーになってるし一応読める・・・？

　

追記

よく考えるとこれでいいですね。理解しないで書いたのでorz

●カンマ区切(N,X)
　　正規表現置換(N,`\G((?:^[-+])?\d{1,`&X&`})(?=(?:\d{`&X&`})+(?!\d))`,`$1,`)

短くするならこんな感じでしょうか

●カンマ区切(N,X)
　　正規表現置換(N,`(\d{1,`&X&`})(?=(?:\d{`&X&`})+(?!\d))`,`$1,`)