GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 03:09:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

Generated finite state networks are now state minimal.

Browse Source
This commit is contained in:
bringert
2005-09-22 15:56:05 +00:00
parent eace8bcd68
commit 9bb01bfc38
2 changed files with 73 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/GF/Data/Utilities.hs
View File

@@ -4,9 +4,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/09/14 18:00:19 $
-- > CVS $Date: 2005/09/22 16:56:05 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.4 $
-- > CVS $Revision: 1.5 $
--
-- Basic functions not in the standard libraries
-----------------------------------------------------------------------------
@@ -80,11 +80,15 @@ sortNub = map head . group . sort
unionAll :: Eq a => [[a]] -> [a]
unionAll = nub . concat
-- | Like lookup, but fails if the argument is not found,
-- | Like 'lookup', but fails if the argument is not found,
-- instead of returning Nothing.
lookup' :: Eq a => a -> [(a,b)] -> b
lookup' x = fromJust . lookup x
-- | Like 'find', but fails if nothing is found.
find' :: (a -> Bool) -> [a] -> a
find' p = fromJust . find p
-- * ordering functions
compareBy :: Ord b => (a -> b) -> a -> a -> Ordering