/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