joachim/fsharp-finite-automata
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Testing complement of DFA

Browse source
This commit is contained in:
joachimschmidt557 2019-03-15 22:37:59 +01:00
parent 94699949eb
commit 59b8f723cb
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
IsNumericChecker.fs
View file

@ -22,6 +22,8 @@ module IsNumeric =
acceptingStates = ["yes"] acceptingStates = ["yes"]
} }
let numericDFAComplement = DFA.complement numericDFA
let numericNFA:NFA = { let numericNFA:NFA = {
sigma = Seq.toList "01ab"; sigma = Seq.toList "01ab";
states = [ states = [
@ -43,6 +45,9 @@ module IsNumeric =
printfn "0101: %b" (DFA.acceptsWord numericDFA "0101") printfn "0101: %b" (DFA.acceptsWord numericDFA "0101")
printfn "01a1: %b" (DFA.acceptsWord numericDFA "01a1") printfn "01a1: %b" (DFA.acceptsWord numericDFA "01a1")
printfn "Empty: %b" (DFA.acceptsWord numericDFA "") printfn "Empty: %b" (DFA.acceptsWord numericDFA "")
printfn "Testing numeric checker DFA complement"
printfn "0101: %b" (DFA.acceptsWord numericDFAComplement "0101")
printfn "01a1: %b" (DFA.acceptsWord numericDFAComplement "01a1")
printfn "Testing numeric checker NFA" printfn "Testing numeric checker NFA"
printfn "0101: %A" (NFA.acceptsWord numericNFA "0101") printfn "0101: %A" (NFA.acceptsWord numericNFA "0101")
printfn "01a1: %b" (NFA.acceptsWord numericNFA "01a1") printfn "01a1: %b" (NFA.acceptsWord numericNFA "01a1")