summaryrefslogtreecommitdiff
path: root/examples/l-system-exemple.lisp
diff options
context:
space:
mode:
authorBruno Cichon <ebrasca.ebrasca@openmailbox.org>2016-11-04 21:01:02 +0100
committerBruno Cichon <ebrasca.ebrasca@openmailbox.org>2016-11-04 21:01:02 +0100
commite28171df2caa910eb194750f70bdfe9272f85f6d (patch)
tree6ff0921591176bd55eef45b4b158c86199c4c711 /examples/l-system-exemple.lisp
parente14766f4732beb281f3393ab3e2b7f56422f1cb2 (diff)
Fix some of semantics mistakes.
Diffstat (limited to 'examples/l-system-exemple.lisp')
-rw-r--r--examples/l-system-exemple.lisp18
1 files changed, 0 insertions, 18 deletions
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)