steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use sigma

db4
Doug Coleman 2009-01-15 17:56:09 -06:00
parent db21e8ed31
commit a6e0df75ea
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/roman/roman.factor
View File

@ -39,16 +39,14 @@ ERROR: roman-range-error n ;
PRIVATE> PRIVATE>
: >roman ( n -- str ) : >roman ( n -- str )
dup roman-range-check [ dup roman-range-check
(>roman) [ (>roman) ] "" make ;
] "" make ;
: >ROMAN ( n -- str ) >roman >upper ; : >ROMAN ( n -- str ) >roman >upper ;
: roman> ( str -- n ) : roman> ( str -- n )
>lower [ roman<= ] monotonic-split [ >lower [ roman<= ] monotonic-split
(roman>) [ (roman>) ] sigma ;
] map sum ;
<PRIVATE <PRIVATE