lunes, 21 de enero de 2008

Buscar un Lista en otra en Lenguaje Scheme

Escriba una función busca que, pasándole dos listas: L1 y L2, devuelva verdadero si la lista L1 está contenida en L2, o sea, si la lista L1 es una sublista de L2 y falso en caso contrario. La sublista vacía está contenida en cualquier lista.
(define (busca Lista1 Lista2)
(cond
((null? Lista1) #t)
((null? Lista2) #f)
((eq? (car Lista1)(car Lista2))
(busca(cdr Lista1) (cdr Lista2)))
(else (busca Lista1(cdr Lista2)))))