16 lines
No EOL
290 B
FSharp
16 lines
No EOL
290 B
FSharp
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 |