You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
391 B
15 lines
391 B
open Resolution |
|
open FSA |
|
|
|
(* ============================================ |
|
Stellar Automata |
|
============================================ *) |
|
|
|
let dot x y = Func ("·", Npol, [x; y]) |
|
|
|
let const_of_word (w : char list) = |
|
let rec aux = function |
|
| [] -> Func ("", Npol, []) |
|
| c::w -> |
|
dot (Func (String.make 1 c, Npol, [])) (aux w) |
|
in [Func ("i", Pos, [aux w])] |