Commit 64b5d4bf authored by youtous's avatar youtous

debug print phones

parent 8523e3fb
# ia01-lamy-journel
## Todo :
- Moteur d'inférence
- Garder les réponses aux questions en mémoire
- Mise à jour des noms règles en fonction des types données
- [?] Fonction regle applicable ?
## WIP :
......@@ -15,8 +10,8 @@
- Questions utilisateur (setq regles)
- Validateurs
- fonction qui pose les questions
- getcontinentbycountries
- getfrequenciesbycountrie
- getcontinentbycountry
- getfrequenciesbycountry
- appliquer getcontinentbycountries à tPays
- Import des données
- Fonction qui donne la version max d'android dans la BD, et apple
......@@ -26,3 +21,7 @@
- (optionel) affichage téléphone
- Fonctions tri et filtres
- cas où il n'y a pas de note, comment on se comporte dans le tri | getter renvoie nil si pas de donnée ""
- Moteur d'inférence
- Garder les réponses aux questions en mémoire
- Mise à jour des noms règles en fonction des types données
- Fonction regle applicable ?
......@@ -24,6 +24,7 @@
; Exemple du tris avec ordre croissant sur le prix
; (print (sortPhones '< "prix" phones))
(print "Début du programme...")
(print "")
(defun engine()
(let (
(bRules '()) ; règles appliquées
......@@ -68,9 +69,9 @@
(let (nbPhones)
(setq nbPhones (min 3 (length bPhones)))
(loop for i from 1 to (- nbPhones 1) do
(loop for i from 1 to nbPhones do
(format t "Téléphone ~S/~S :~%" i nbPhones)
(printPhone (nth i bPhones))
(printPhone (nth (- i 1) bPhones))
)
)
)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment