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 ))