Commatizing numbers: Difference between revisions
m
→{{header|Factor}}: missed one
(→{{header|Factor}}: change word names, more descriptive stack effects, use existing "replace" word) |
m (→{{header|Factor}}: missed one) |
||
Line 319:
[ cut dup numeric dup ] 2dip commas replace append ;
: commatize* ( text from period
reach [ digit? ] any? [ (commatize) ] [ 3drop ] if ;
| |||