lunes, 21 de enero de 2008

Elimina apariciones de un elemento en un lista en Lenguaje Scheme

Utilizando la función equal?, defina una función elimina que dado un elemento y una lista, devuelva dicha lista en la cual se han eliminado todas las apariciones del elemento

(define (elimina x Lista1)
(if (null? Lista1)
'()
(if (eq? x (car Lista1))
(elimina x (cdr Lista1))
(cons (car Lista1) (elimina x (cdr Lista1))))))