GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 01:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Some performance improvements in the FA generation.

Browse Source
This commit is contained in:
bringert
2005-12-22 23:16:15 +00:00
parent cb9769788e
commit 5c12a73dae
6 changed files with 92 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Speech/Relation.hs
View File

@@ -100,10 +100,10 @@ purgeEmpty r = Map.filter (not . Set.null) r
-- | Get the equivalence classes from an equivalence relation.
equivalenceClasses :: Ord a => Rel a -> [[a]]
equivalenceClasses :: Ord a => Rel a -> [Set a]
equivalenceClasses r = equivalenceClasses_ (Map.keys r) r
where equivalenceClasses_ [] _ = []
equivalenceClasses_ (x:xs) r = Set.toList ys:equivalenceClasses_ zs r
equivalenceClasses_ (x:xs) r = ys:equivalenceClasses_ zs r
where ys = allRelated r x
zs = [x' | x' <- xs, not (x' `Set.member` ys)]