10 lines
271 B
Text
10 lines
271 B
Text
(de roman (N)
|
|
(pack
|
|
(make
|
|
(mapc
|
|
'((C D)
|
|
(while (>= N D)
|
|
(dec 'N D)
|
|
(link C) ) )
|
|
'(M CM D CD C XC L XL X IX V IV I)
|
|
(1000 900 500 400 100 90 50 40 10 9 5 4 1) ) ) ) )
|