(module JourMois (main GetArgs)) (define (GetArgs Args) (let* ((calendrier (cond ((= 5 (length Args)) (string->symbol (car (reverse Args)))) ((= 4 (length Args)) 'G) (else 'Erreur))) (la-date (cons calendrier (cond ((= 4 (length Args)) (map string->number (cdr Args))) ((= 5 (length Args)) (map string->number (reverse (cdr (reverse (cdr Args)))))) (else '(Erreur))))) (date-ref (if (eq? 'J calendrier) (list 'J 23 1 2018) (list 'G 1 1 2018)))) (print (calcul-jour la-date date-ref))))