fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(participants): small Name-change

Browse Source
This commit is contained in:
ros 2021-05-21 17:23:38 +02:00
parent b96327b18d
commit eced7781ae
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Utils/Set.hs
View File

@ -1,5 +1,5 @@
module Utils.Set module Utils.Set
( setIntersectAll ( setUnionAll
, setIntersectNotOne , setIntersectNotOne
, setIntersections , setIntersections
, setMapMaybe , setMapMaybe
@ -20,10 +20,10 @@ import Control.Lens.Prism
import Control.Lens import Control.Lens
-- | cardinal number of a Set -- | cardinal number of a Set
setIntersectAll :: Ord a => [Set.Set a] -> Int setUnionAll :: Ord a => [Set.Set a] -> Int
setIntersectAll [] = 0 setUnionAll [] = 0
setIntersectAll [x] = Set.size x setUnionAll [x] = Set.size x
setIntersectAll (x:y:z) = setIntersectAll (xy:z) where xy = Set.union x y setUnionAll (x:y:z) = setUnionAll (xy:z) where xy = Set.union x y
-- | cardinal number of an intersection of a set and a list of sets -- | cardinal number of an intersection of a set and a list of sets
setIntersectNotOne :: Ord a => Set.Set a -> [Set.Set a] -> Int setIntersectNotOne :: Ord a => Set.Set a -> [Set.Set a] -> Int