exo4

(setq BaseTest

'(("Guerre de Burgondie" 523 533 (("Royaume Franc") ("Royaume des Burgondes")) ("Vezeronce" "Arles"))))

(setq BaseTest

(append BaseTest '(( "Campagnes de Clovis Ier" 486 508 (("Royaume franc")("Domaine gallo-romain de Soissons"))("Soissons"))

( "Campagnes de Clovis Ier" 486 508 (("Royaume franc")("Royaume alaman"))("Zülpich" " Cologne"))

( "Campagnes de Clovis Ier" 486 508 (("Royaume franc")("Royaume des Burgondes"))("Dijon"))

( "Campagnes de Clovis Ier" 486 508 (("Royaume franc")("Royaume wisigoth"))("Vouillé" " Vienne"))

( "Campagnes de Clovis Ier" 486 508 (("Royaume franc")("Royaume ostrogoth Royaume wisigoth"))("Arles" " Bouches-du-Rhône"))

( "Guerre de Burgondie" 523 533 (("Royaume franc")("Royaume des Burgondes"))("Vézeronce" " Arles"))

( "Conquête de la Thuringe" 531 531 (("Royaume franc")("Thuringes"))("Thuringe"))

( "Guerre des Goths" 535 553 (("Royaume ostrogoth Soutenu par : Alamans Royaume franc Royaume wisigoth Burgondes")("Empire byzantin (romain d'Orient)"))("Péninsule italienne"))

( "Conquête de l'Alémanie" 536 536 (("Royaume franc")("Alamans"))("Alémanie"))

( "Conquête de la Bavière" 555 555 (("Royaume franc")("Bavarii"))("Bavière"))

( "Campagnes de Bretagne" 560 578 (("Royaume franc")("Royaume du Vannetais"))("Vannetais"))

( "Guerre de succession mérovingienne" 584 585 (("Royaume franc")("Royaume d'Aquitaine"))("Comminges"))

( "Guerre franco-frisonne" 600 793 (("Royaume franc")("Royaume de Frise"))("Pays-Bas et Allemagne"))

( "Guerre civile des Francs" 715 719 (("Neustrie")("Austrasie"))("Royaume franc"))

( "Invasion omeyyade en France" 719 759 (("Royaume franc")("Califat omeyyade"))("Royaume d'Aquitaine" " Septimanie"))

( "Guerre des Lombards" 755 758 (("Royaume franc")("Lombards"))("Lombardie"))

( "Guerre d'Aquitaine" 761 768 (("Royaume franc")("Aquitains"))("Vasconie Aquitaine"))

( "Guerre des Saxons" 772 804 (("Royaume franc")("Saxons"))("Germanie"))

( "Guerre des Lombards" 773 774 (("Royaume franc")("Lombards"))("Lombardie"))

( "Guerre des Avars" 791 805 (("Royaume de France")("Avars"))("Pannonie"))

( "Invasions sarrasines en Provence" 798 990 (("Royaume de France Comté de Provence")("Sarrasins[Lesquels ?]"))("Provence"))

( "Guerre civile entre les fils de Louis le Pieux" 830 842 (("Francie occidentale (Royaume de France) Francie orientale")("Francie médiane"))("Fontenoy"))

( "Guerre franco-bretonne" 843 851 (("Royaume de France")("Royaume de Bretagne Vikings"))("Royaume de Bretagne"))

( "Luttes inter-dynastiques carolingiennes" 876 946 (("Francie occidentale Francie orientale")("Royaume de Bourgogne Francie orientale"))("Ardennes" " Saône-et-Loire" " Rhénanie-Palatinat" " Aisne"))

( "Invasions vikings en France" 799 1014 (("Royaume de France")("Vikings"))("Normandie" " Bretagne"))

)

))

(defun debut_conflit (conflit)

(cadr conflit))

(defun nom_conflit (conflit)

(car conflit))

(defun allies (conflit)

(let ((belligerants (cadddr conflit)))

(car belligerants)))

(defun ennemis (conflit)

(let ((belligerants (cadddr conflit)))

(cadr belligerants)))

(defun lieu_conflit (conflit)

(first (last conflit)))

(defun FB1 (basetest)

(mapcar #'print basetest))

(defun FB2 (basetest)

(remove nil (mapcar (lambda (x) (if (equal (allies x) '("Royaume franc")) (print x))) basetest)))

(defun FB3 (basetest allie)

(remove nil (mapcar (lambda (x) (if (equal (allies x) allie) x)) basetest)))

(defun FB4 (basetest)

(remove nil (mapcar (lambda (x) (if (equal (debut_conflit x) 523) x)) basetest)))

(defun FB5 (basetest)

(remove nil (mapcar (lambda (x) (if (and (>= (debut_conflit x) 523) (<= (debut_conflit x) 715)) x)) basetest)))

(defun FB6 (basetest)

(let ((y 0))

(mapcar (lambda (x)

(when (member "Lombards" (ennemis x))

(incf y)))

basetest)

y))

(print ( FB6 BaseTest ))