WIP NFA & DFA validation

DFA.fs

@@ -12,6 +12,17 @@ type DFA = {
     acceptingStates: State list
 }
 
+let validateDFA (dfa:DFA) = 
+
+    let allAcceptingStatesAreStates = 
+        dfa.acceptingStates
+        |> List.map (fun x -> List.contains x dfa.states)
+        |> List.filter (fun x -> not x)
+        |> List.length < 1
+
+    List.contains dfa.beginState dfa.states ||
+    allAcceptingStatesAreStates
+
 let processChar (dfa: DFA) (state: State) (char: Char) =
     dfa.delta state char