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