25 Feb
2006
25 Feb
'06
8:20 p.m.
/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: Dr.Graef(a)t-online.de, ag(a)muwiinfa.geschichte.uni-mainz.de
WWW: http://www.musikinformatik.uni-mainz.de/ag