From e28171df2caa910eb194750f70bdfe9272f85f6d Mon Sep 17 00:00:00 2001
From: Bruno Cichon <ebrasca.ebrasca@openmailbox.org>
Date: Fri, 4 Nov 2016 21:01:02 +0100
Subject: Fix some of semantics mistakes.

---
 examples/l-system-example.lisp | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 examples/l-system-example.lisp

(limited to '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)
-- 
cgit v1.2.3-54-g00ecf