WIP NFA & DFA validation

NFA.fs

@@ -0,0 +1,16 @@
+module NFA
+
+open System
+
+type State = { name: String }
+
+type NFA = {
+    sigma: Char list
+    states: State list
+    delta: State -> Char -> State list
+    beginState: State
+    acceptingStates: State list
+}
+
+let processChar (nfa: NFA) (state: State) (char: Char) =
+    nfa.delta state char