use sigma

2009-01-15 17:56:09 -06:00 · 2009-01-15 17:56:09 -06:00 · a6e0df75ea
parent db21e8ed31
commit a6e0df75ea
1 changed files with 4 additions and 6 deletions
--- a/basis/roman/roman.factor
+++ b/basis/roman/roman.factor
@ -39,16 +39,14 @@ ERROR: roman-range-error n ;
 PRIVATE>

 : >roman ( n -- str )
-    dup roman-range-check [
-        (>roman)
-    ] "" make ;
+    dup roman-range-check
+    [ (>roman) ] "" make ;

 : >ROMAN ( n -- str ) >roman >upper ;

 : roman> ( str -- n )
-    >lower [ roman<= ] monotonic-split [
-        (roman>)
-    ] map sum ;
+    >lower [ roman<= ] monotonic-split
+    [ (roman>) ] sigma ;

 <PRIVATE