test logique : cond

[rimbo]

je suis en train de revoir les tests logique avec cond

quelle peut-etre toute la portée des tests... et, ou ...?

 

[Tramber]

Salut l'ami:

 

(if

c'est qd il y a 2 choix.

 

(cond

c'est quand on veut faire plusieurs tests

[bonuscad]

(IF

(test logique); cela peut être expression de test simple =, >, < , etc...

;mais peut être aussi une fonction complexe défini auparavant (defun ma_fonction ( argument1 argument2 .... ) qui retournera une valeur ou rien [nil]

(alors ceci); si le test a pour résultat vrai [T] ou valeur existe [réel, entier, chaine, liste, symbole]

(autrement cela); si le test a pour résultat faux [nil] ou aussi rien du tout [on peut ignorer la seconde condition]

)

si IF doit executer plusieurs procédure vous devez englober ces procédures avec (PROGN

 

(IF

(MA_FONCTION arg1 arg2)

(PROGN ; début progn

(alor ceci)

(puis cela)

(et encore ça)

) ;fin progn

(PROGN

(autrement faire cela)

(puis ceci)

)

)

 

(COND

((test condition1) ;début 1ere condition [notez la 1ere paranthèse qui englobe l'ensemble de la condition comme fait PROGN pour IF

(alors ceci) (cela) (et sa n'arrete plus)

);fin 1ere condition

((test condition n+1) ;début condition n+1

(....)(....)...

);fin condition n +1

((.....)

(...) (...)

)

(T ;il est généralement judicieux de mettre cette condition qui est toujours vrai pour être sur que COND renvoie une valeur par défaut si aucun test n'a réussi.

(PRINC "\nEchec de la condition");message d'avertissement

(exit); par exemple pour abandonner la suite de la procédure

)

)

 

ATTENTION (COND évalue les conditions dans l'ordre séquentiel, cela veut dire que si la 1ere condition est sastifaite les autre ne seront pas vérifié.

C'est pour cela que si on emploi la condition T elle doit être placée en fin de test car au début elle serait systématiquement évalué comme vrai et ne ferait pas les autres conditions.

Et alors bug en perpective ;-)