euler089 ( -- n )


Vocabulary
project-euler.089

Inputs
None

Outputs
nan object


Definition
USING: io.encodings.ascii io.files kernel math roman sequences ;

IN: project-euler.089

: euler089 ( -- n )
"resource:extra/project-euler/089/roman.txt" ascii
file-lines [ ] [ [ roman> >roman ] map ] bi
[ [ length ] map-sum ] bi@ - ;