It's fixed now. Thanks for the tip.
----- Original Message ----- From: June Kim <[EMAIL PROTECTED]> Date: Saturday, June 16, 2007 6:12 am Subject: [Jprogramming] Numbers in Chinese > Copied from http://jsoftware.com/jwiki/Essays/Number_in_Words : > > zh4=: 4 : 0 NB. x: 1 iff leading group; y: number < 1e4 > b=. 0<d=. 10 10 10 10#:y > p=. +./\ b>:x > s=. +./\. b > t=. 0 0 1 0*.0 1-:1 2{d > ' ' -.~ ; ((0=y){.ZH10) , (p*.s) # t}.&.> (d{ZH10) ,&.> b $&.> ZH4 > ) > > zh=: 3 : 0 > d=. 10000&#.^:_1 y > assert. (0<:y) *. ((=<.)y) *. d <:&# ZHU > t=. ; (+./\.*d) # (((#d){.1)zhg&.>d) ,&.> (*d)#&.>|.(#d){.ZHU > z=. >{.ZH10 NB. zero > ((0=y)#z) , t{~(i.#t)-.,(i.#z)+/(,~z) [EMAIL PROTECTED] t > ) > > zh 123456789 > |value error: zhg > | t=.;(+./\.*d)#(((#d){.1) zhg&.>d),&.>(*d)#&.>|.(#d){.ZHU > > zhg isn't defined there. I supposed zh4 could be zhg. However, after > assigning that name to zh4, the result is: > > zh 123456789 > 一億二三四五萬六七八九 > > , which is different from the wiki page: > > zh 123456789 > 一億二千三百四十五萬六千七百八十九 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
