10 lines
163 B
Text
10 lines
163 B
Text
|
/+ *roman
|
||
|
|
:- %say
|
||
|
|
|= [* [x=$%([%from-roman tape] [%to-roman @ud]) ~] ~]
|
||
|
|
:- %noun
|
||
|
|
^- tape
|
||
|
|
?- -.x
|
||
|
|
%from-roman "{<(parse +.x)>}"
|
||
|
|
%to-roman (yield +.x)
|
||
|
|
==
|