Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (aux-unir-listas lista)
- (cond
- [(empty? lista) lista]
- [(member (car lista) (cdr lista)) (aux-unir-listas (cdr lista))]
- [else (cons (car lista) (aux-unir-listas (cdr lista)))]))
- (define (unir-listas lista1 lista2)
- (aux-unir-listas (append lista1 lista2)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement