! Copyright (C) 2007 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs effects fry generalizations
-grouping kernel lexer macros math math.order math.vectors
-namespaces parser effects.parser quotations sequences
-sequences.private splitting.monotonic stack-checker strings
-unicode.case words ;
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors combinators.smart effects.parser
+generalizations grouping kernel lexer math math.order
+parser quotations sequences splitting.monotonic strings unicode
+words ;
IN: roman
<PRIVATE
: roman-digit-index ( ch -- n )
1string roman-digits index ; inline
-: roman>= ( ch1 ch2 -- ? )
+: roman-digit>= ( ch1 ch2 -- ? )
[ roman-digit-index ] bi@ >= ;
-: roman>n ( ch -- n )
+: roman-digit-value ( ch -- n )
roman-digit-index roman-values nth ;
-: (roman>) ( seq -- n )
- [ [ roman>n ] map ] [ all-eq? ] bi
+: roman-value ( seq -- n )
+ [ [ roman-digit-value ] map ] [ all-eq? ] bi
[ sum ] [ first2 swap - ] if ;
PRIVATE>
: >ROMAN ( n -- str ) >roman >upper ;
: roman> ( str -- n )
- >lower [ roman>= ] monotonic-split [ (roman>) ] map-sum ;
+ >lower [ roman-digit>= ] monotonic-split
+ [ roman-value ] map-sum ;
<PRIVATE
<<
SYNTAX: ROMAN-OP:
- scan-word [ name>> "roman" prepend create-in ] keep
+ scan-word [ name>> "roman" prepend create-word-in ] keep
1quotation '[ _ binary-roman-op ]
scan-effect define-declared ;