/me wrote:
To make this thread go totally off-topic, here's the same in Q:
Sorry, I forgot one equation:
intersect Xs [] = [];
intersect Xs [Y|Ys] = [Y|intersect Xs Ys] if any (=Y) Xs;
= intersect Xs Ys otherwise;
--
Dr. Albert Gr"af
Dept. of Music-Informatics, University of Mainz, Germany
Email: [EMAIL PROTECTED], [EMAIL PROTECTED]
WWW: http://www.musikinformatik.uni-mainz.de/ag
