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

Add more examples

Browse source
This commit is contained in:
joachimschmidt557 2019-02-20 19:18:48 +01:00
parent 0f5d632388
commit fa48bc49d1
4 changed files with 89 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

41
ContainsSequence.fs Normal file
View file

@ -0,0 +1,41 @@
namespace Tests
open System
open NFA
open DFA
module ContainsSequence =
let contains0101:NFA = {
sigma = Seq.toList "01";
states = [
{name = "q0"};
{name = "q1"};
{name = "q2"};
{name = "q3"}
{name = "yes"}
];
delta = (fun x y ->
match (x, y) with
| ({name = "q0"}, '0') -> [{name = "q0"}; {name = "q1"}]
| ({name = "q1"}, '1') -> [{name = "q0"}; {name = "q2"}]
| ({name = "q2"}, '0') -> [{name = "q0"}; {name = "q3"}]
| ({name = "q3"}, '1') -> [{name = "yes"}]
| ({name = "yes"}, _) -> [{name = "yes"}]
| _ -> []
);
beginState = {name = "q0"};
acceptingStates = [{name = "yes"}]
}
let test =
printfn "Testing contains sequence NFA"
printfn "Contains '0101' ?"
printfn "0101: %b" (NFA.acceptsWord contains0101 "0101")
printfn "0000: %b" (NFA.acceptsWord contains0101 "0000")
printfn "1010: %b" (NFA.acceptsWord contains0101 "1010")
printfn "0100: %b" (NFA.acceptsWord contains0101 "0100")
printfn "00101: %b" (NFA.acceptsWord contains0101 "00101")
printfn "01011: %b" (NFA.acceptsWord contains0101 "01011")
0