intersection xs ys = snd $ foldr aux (ys, []) xs where aux x acc@(ys, r) = if x `elem` ys then (delete x ys, x:r) else acc
If Perl is line noise, that just looks like someone barfed up a random chunk of /usr/dict/words :D
-- Mike Whitaker - m...@altrion.org