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

WIP

Browse source
This commit is contained in:
joachimschmidt557 2019-02-06 22:43:38 +01:00
parent 20201692a1
commit c67110d17f
4 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
.gitlab-ci.yml
View file

@ -2,3 +2,4 @@ image: microsoft/dotnet:latest
build: build:
script: dotnet build script: dotnet build
script: dotnet run

4
DFA.fs
View file

@ -4,6 +4,9 @@ open System
type State = { name: String } type State = { name: String }
///
/// A deterministic finite automaton
///
type DFA = { type DFA = {
sigma: Char list sigma: Char list
states: State list states: State list
@ -12,6 +15,7 @@ type DFA = {
acceptingStates: State list acceptingStates: State list
} }
/// Returns true if the DFA is valid, false otherwise
let validateDFA (dfa:DFA) = let validateDFA (dfa:DFA) =
let allAcceptingStatesAreStates = let allAcceptingStatesAreStates =

1
NFA.fs
View file

@ -4,6 +4,7 @@ open System
type State = { name: String } type State = { name: String }
/// A non-deterministic finite automaton
type NFA = { type NFA = {
sigma: Char list sigma: Char list
states: State list states: State list

3
Program.fs
View file

@ -1,5 +1,4 @@
// Learn more about F# at http://fsharp.org 
open System open System
[<EntryPoint>] [<EntryPoint>]