roman-value ( seq -- n )

Vocabulary

roman.private

Inputs

seq

an object

Outputs

n

an object

Definition

USING: grouping kernel math sequences ;

IN: roman.private

: roman-value ( seq -- n )
    [ [ roman-digit-value ] map ] [ all-eq? ] bi
    [ sum ] [ first2 swap - ] if ;