From e28171df2caa910eb194750f70bdfe9272f85f6d Mon Sep 17 00:00:00 2001 From: Bruno Cichon Date: Fri, 4 Nov 2016 21:01:02 +0100 Subject: Fix some of semantics mistakes. --- README.txt | 2 +- examples/l-system-example.lisp | 18 ++++++++++++++++++ examples/l-system-exemple.lisp | 18 ------------------ l-system-examples.asd | 2 +- 4 files changed, 20 insertions(+), 20 deletions(-) create mode 100644 examples/l-system-example.lisp delete mode 100644 examples/l-system-exemple.lisp diff --git a/README.txt b/README.txt index 5ff3a78..9dcec19 100644 --- a/README.txt +++ b/README.txt @@ -8,4 +8,4 @@ At the moment, this includes the following functionality: *Parametric grammars. *Context sensitive grammars. -For an example, see 'examples/l-system-exemple.lisp'. +For an example, see 'examples/l-system-example.lisp'. diff --git a/examples/l-system-example.lisp b/examples/l-system-example.lisp new file mode 100644 index 0000000..4d8a53a --- /dev/null +++ b/examples/l-system-example.lisp @@ -0,0 +1,18 @@ +(in-package #:l-system-examples) + +;;;Parametric grammars +(-> f () + (f 1) + (j 1) + (f 1)) + +(-> j (x) + (j (* 3 x))) + +(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) diff --git a/examples/l-system-exemple.lisp b/examples/l-system-exemple.lisp deleted file mode 100644 index 4d8a53a..0000000 --- a/examples/l-system-exemple.lisp +++ /dev/null @@ -1,18 +0,0 @@ -(in-package #:l-system-examples) - -;;;Parametric grammars -(-> f () - (f 1) - (j 1) - (f 1)) - -(-> j (x) - (j (* 3 x))) - -(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) diff --git a/l-system-examples.asd b/l-system-examples.asd index 2e36a8e..0a69de2 100644 --- a/l-system-examples.asd +++ b/l-system-examples.asd @@ -8,4 +8,4 @@ :serial t :depends-on (:l-system) :components ((:file "package") - (:file "l-system-exemple"))) + (:file "l-system-example"))) -- cgit v1.2.3