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

use bi

db4
Doug Coleman 2009-02-05 09:09:24 -06:00
parent 5d3ee9bf57
commit f101ca606d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/roman/roman.factor
View File

@ -31,7 +31,7 @@ ERROR: roman-range-error n ;
] 2each drop ; ] 2each drop ;
: (roman>) ( seq -- n ) : (roman>) ( seq -- n )
dup [ roman>n ] map swap all-eq? [ [ [ roman>n ] map ] [ all-eq? ] bi [
sum sum
] [ ] [
first2 swap - first2 swap -