2009-01-23 09:22:03 -05:00
|
|
|
! Copyright (c) 2007, 2008 Aaron Schaefer.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-08-11 19:00:24 -04:00
|
|
|
USING: kernel fry math.functions math sequences ;
|
2009-01-23 09:22:03 -05:00
|
|
|
IN: math.text.utils
|
|
|
|
|
|
2009-08-11 19:00:24 -04:00
|
|
|
: digit-groups ( n k -- seq )
|
|
|
|
|
[ dup 0 > ] swap '[ _ 10^ /mod ] produce nip ;
|
