Salut
je cherche une solution pour ce problème : déterminer si un atom contient des chiffres exemple (a12 ca k21 (a9 bb 21) ) je veut qu'il retourne
(a12 k21 (a9) ) .
le programme doit supprimer tous les atom qu'il contiens pas des chiffres .
voila mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 (defun alpha-numerique(lst) ; ??????? ) (defun func(lst) (cond ((null lst)lst) ((numberp (car lst))(delete (car lst)(func(cdr lst)))) ((listp(car lst))(cons(func(car lst))(func(cdr lst)))) (t (cons(car lst)(func(cdr lst)))) ) )
Partager