Perl Christmas Quiz

Mike Whitaker mike at
Mon Dec 15 20:08:03 GMT 2008

> 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 - mike at

More information about the mailing list