factor: trim using lists

[factor.git] / extra / math / text / utils / utils.factor

diff --git a/extra/math/text/utils/utils.factor b/extra/math/text/utils/utils.factor
index 73326de2733547660e0dc351bcd26653a678e86c..83ef1fad992d1fd8d3250de0dac7f187845771f9 100644 (file)
--- a/extra/math/text/utils/utils.factor
+++ b/extra/math/text/utils/utils.factor
@@ -1,7 +1,7 @@
 ! Copyright (c) 2007, 2008 Aaron Schaefer.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math sequences ;
+USING: kernel math math.functions sequences ;
 IN: math.text.utils
 
-: 3digit-groups ( n -- seq )
-    [ dup 0 > ] [ 1000 /mod ] [ ] produce nip ;
+: digit-groups ( n k -- seq )
+    [ dup 0 > ] swap '[ _ 10^ /mod ] produce nip ;