RosettaCodeData/Task/Roman-numerals-Encode/Scheme/roman-numerals-encode-1.ss

3 lines
41 B
Scheme

(define (to-roman n)
(format "~@r" n))