Searched refs:utSetIntersection (Results 1 – 1 of 1) sorted by relevance
223 utSetIntersection :: (Ord a) => Set a -> Set a -> Set a225 utSetIntersection (MkSet []) (MkSet []) = (MkSet []) function226 utSetIntersection (MkSet []) (MkSet (b:bs)) = (MkSet []) function227 utSetIntersection (MkSet (a:as)) (MkSet []) = (MkSet []) function228 utSetIntersection (MkSet (a:as)) (MkSet (b:bs)) function229 | a < b = utSetIntersection (MkSet as) (MkSet (b:bs))230 | a == b = MkSet (a: (unMkSet (utSetIntersection (MkSet as) (MkSet bs))))231 | a > b = utSetIntersection (MkSet (a:as)) (MkSet bs)