miercuri, 12 februarie 2014

lisp help



cum ştergi un atom de pe toate nivelurile unei liste folosind funcţiile map:

(defun sterge (l at)
    (cond
        ((and(atom l)(equal l at)) nil)
        ((and (atom l)(not(equal l at))) (list l))
        (t (list (mapcan #' (lambda (l) (sterge l at) ) l)))
    )
)

Niciun comentariu: