rfindler / lindenmayer Goto Github PK

Here is one example use of the language.

@(define example @list{
#lang lindenmayer/simple
## axiom ##
A
## rules ##
A -> AB
B -> A
## variables ##
n=3
})

@(apply typeset-code example)

When it is run, it produces the output:
@(let ()
   (define ip (open-input-string (apply string-append example)))
   (define op (open-output-string))
   (parameterize ([current-namespace (make-base-namespace)]
                  [current-output-port op]
                  [read-accept-reader #t])
     (eval (read-syntax #f ip)))
   (tt (get-output-string op)))