;;; Fichier romains.drs / 5 fevrier 2000

(define (romain->decimal liste)
   (cond ((null? (cdr liste)) (conversion (car liste)))
         (else ((if (< (conversion (car liste))
                       (conversion (cadr liste))) - +)
                (romain->decimal (cdr liste))
                (conversion (car liste))))))

(define (conversion chiffre) (cadr (assq chiffre table)))

(define table '((i 1) (v 5) (x 10) (l 50) (c 100) (d 500) (m 1000)))