Re: Multivalue tail recursion?

Kent M. Pitman wrote:

 
 (loop for x in '(3 5 7)
       for y in '(2 5 8)
       when (= x y)
         collect (cons x y))

What if there were more than two lists?
This will handle any number of lists:

Scheme:

(filter-map
  (lambda xs (and (apply = xs) xs))
  '(0   3 5   7 9)
  '(0   2 5.0 8 9.0)
  '(2   4 5   8 9))

((5 5.0 5) (9 9.0 9))