;;; Exercice 1 ;; 1- ((1 2 3) . 3) ;; 2- ((1 2 3)) ;; 3-((1 2 3) (4 5) NIL ;; 4- (append '(1 2 3) '(4 5) ()) ;; 5- (4) ;; 6- (1 2 3) ;; 7- (2 3 5 6 7) ;; 8- ((1 . 2) (4 . 3) (5 . 5) (7 . 6) (2 . 7)) ;;; Exercice 2 ;; 1- une fonction (ou une fonction anonyme, ou une fermeture) ;; 2- Oui ;; 3 (defun traduire (e traducteur) (or (funcall traducteur e) '???)) ;; 4 (defun traduire-list (l code) (mapcar (lambda (e) (traduire e code)) l)) ;; 5 (defun traducteur (l1 l2) (let ((alist (pairlis l1 l2))) (lambda (e) (cdr (assoc e alist))))) ;;; Exercice 3 ;; 1 (defun distribute (e l) (if (endp l) '() (cons (cons e (car l)) (distribute e (cdr l))))) ;; 2 (defun distribute (e l) (mapcar (lambda (x) (cons e x)) l))