extra/math/text/utils/utils.factor

   1 ! Copyright (c) 2007, 2008 Aaron Schaefer.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel math sequences ;
   4 IN: math.text.utils
   5
   6 : 3digit-groups ( n -- seq )
   7     [ dup 0 > ] [ 1000 /mod ] [ ] produce nip ;