Discussion :

[l1informatique]

Bonjour,

quelqu'un peut svp m'aider a trouver ou est le problème dans ma fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 (defun string-position (string1 string2)
   (cond 
     ((not string2)  nil)
     ((equal (subseq (string string2) 0 (length (string string1))) (string string1)) string1 
     (string-position string1 (subseq (string string2) 1)))
     ((string-position string1 (subseq (string string2) 1)))))

C'est une fonction qui consiste à :

(l'endroit 'a 'bads) => #\a
(l'endroit 'x 'bads) => nil

merci

[byjav]

Il suffit de formatter le code dans un éditeur qui puisse faire l'indentation de façon automatique pour voir que quelque chose n'est pas correcte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
(defun string-position (string1 string2)
  (cond 
    ((not string2)  nil)
    ((equal (subseq (string string2) 0 (length (string string1))) (string string1)) string1 
                                                                                    (string-position string1 (subseq (string string2) 1)))
    ((string-position string1 (subseq (string string2) 1)))))

Alors, ça fait deux années avec lisp, et pas de progrès?