(setq Lst1 '(4.0 7.5 5.0 9.0 9.0 4.0 7.5 7.5 5.0 8.25 9.0 5.0)) (setq Lst2 '(4 7 5 9 9 4 7 7 5 8 9 5)) ;; Construction de la liste de résultat ((Nbr1 & Long1) (Nbr2 & Long2) etc...) (if Result (setq Result (append Result (list Nbr&Long))) (setq Result (list Nbr&Long)) ) ;_ Fin de if
Fin du teste
Teste de lien
Afficher le lien:
http://www.cadxp.co...d=100&tid=20554
Masquer le lien
lien
Fin du test
Test de lien sur n°réponse
En réponse n° 7
Fin du test
<font class=edite>[Edité le 6/10/2010 par VDH-Bruno]</font><font class=edite>[Edité le 6/10/2010 par VDH-Bruno]</font>
<font class=edite>[Edité le 8/10/2010 par VDH-Bruno]</font>