diff options
| author | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2016-11-03 19:38:59 +0100 |
|---|---|---|
| committer | Bruno Cichon <ebrasca.ebrasca@openmailbox.org> | 2016-11-03 19:38:59 +0100 |
| commit | 17efba28080150674d6ab1c9ea0b5e9fea1e3908 (patch) | |
| tree | 37537b128c2ed92e4ebbbab48d71ebd6fd4b5baf /examples/l-system-exemple.lisp | |
| parent | bdb5e6cb89d2bebc94fa5ab01e4539af0adf0b5c (diff) | |
Add context sensitive grammars.
Diffstat (limited to 'examples/l-system-exemple.lisp')
| -rw-r--r-- | examples/l-system-exemple.lisp | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/examples/l-system-exemple.lisp b/examples/l-system-exemple.lisp index 5f999c1..4d8a53a 100644 --- a/examples/l-system-exemple.lisp +++ b/examples/l-system-exemple.lisp @@ -1,5 +1,6 @@ (in-package #:l-system-examples) +;;;Parametric grammars (-> f () (f 1) (j 1) @@ -8,4 +9,10 @@ (-> j (x) (j (* 3 x))) -(l-system '((f 1.0)) 2) +(l-system #'parametric-grammar '((f 1.0)) 2) + +;;;Context sensitive grammars +(-> (f j f) (x) + (j (* 2 x))) + +(l-system #'context-sensitive-grammar '((f 1.0)) 2) |