You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
(define (lp& p ls1 ls2)
|
|
(let loop ((ls1 ls1) (ls2 ls2))
|
|
(cond ((not (and (pair? ls1) (pair? ls2)))
|
|
'())
|
|
((p (car ls1) (car ls2))
|
|
(cons (car ls1) (loop (cdr ls1) (cdr ls2))))
|
|
(else '())
|
|
)))
|
|
|
|
(define (ls& ls1 ls2)
|
|
(cond ((eqv? ls1 ls2) ls1)
|
|
(else (lp& eqv? ls1 ls2))))
|
|
|
|
|
