Garmelon/rextra
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Convert between DFA and NFA

Browse source
This commit is contained in:
Joscha 2019-10-25 15:06:52 +00:00
parent 56bcf2c987
commit 11f0f68513
3 changed files with 160 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Rextra/Dfa.hs
View file

@ -1,5 +1,6 @@
module Rextra.Dfa
( Dfa
, StateMap
, dfa
, dfa'
, stateMap
@ -19,8 +20,10 @@ data State s t = State
, accepting :: Bool
} deriving (Show)
type StateMap s t = Map.Map s (State s t)
data Dfa s t = Dfa
{ stateMap :: Map.Map s (State s t)
{ stateMap :: StateMap s t
, entryState :: s
} deriving (Show)
@ -36,7 +39,7 @@ integrityCheck dfa =
referencedStates = Set.fromList $ concat [[entryState dfa], transitionStates, defaultTransitionStates]
in referencedStates `Set.isSubsetOf` Map.keysSet (stateMap dfa)
dfa :: (Ord s) => Map.Map s (State s t) -> s -> Maybe (Dfa s t)
dfa :: (Ord s) => StateMap s t -> s -> Maybe (Dfa s t)
dfa stateMap entryState =
let myDfa = Dfa{stateMap=stateMap, entryState=entryState}
in if integrityCheck myDfa then Just myDfa else Nothing