Select Code to Download

#lang scheme
(define (sum-of-ints li [sum 0])
...

(for ([r test-data])
  (printf "~a ~a~n" r (roman-to-dec r)))

+% mzscheme roman.ss
XLII 42
LXIX 69
mi 1001
MCMLXXXV 1985