RosettaCodeData/Task/Roman-numerals-Decode/Scheme/roman-numerals-decode-2.ss

4 lines
115 B
Scheme
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
(for-each
(^s (format #t "~7d: ~d\n" s (decode s)))
'("MCMLVI" "XXC" "MCMXC" "XXCIII" "IIIIX" "MIM" "LXXIIX"))