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
Partager