<div dir="ltr">I have this<div><font face="monospace"><br></font></div><div><font face="monospace">intersect1 :: ([a],[a]) -> [a]</font><br></div><div><font face="monospace">intersect1 (s,[])              = []<br>interesct1 (s,t:ts) | elem t s = t : intersect1 (s,ts)<br>                    | otherwise = intersect1 (s,ts)</font><br></div><div><br></div><div>and when I try this</div><div><br></div><div><font face="monospace">intersect1 ([1,2],[1,2,3])</font><br></div><div><br></div><div>I get the error </div><div><br></div><div><font face="monospace"> Non-exhaustive patterns in function intersect1<br></font></div><div><font face="monospace"><br></font></div><div>Not sure what's wrong with this.</div><div><br></div><div>LB</div><div><br></div><div><br></div></div>