41 lines
No EOL
1.3 KiB
FSharp
41 lines
No EOL
1.3 KiB
FSharp
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 |