Benutzer:Helm

Aus ProgrammingWiki

Archivierte Version vom 2012-09-25T08:12:12+00:00. Aktuelle Version

Hello, this is me.

Links

Sandkasten

(define baum
  (lambda (turtle len n)
    (if (> n 0)
        (begin
          (forward turtle len)
          (left turtle 45)
          (baum turtle (* 2/3 len) (- n 1))
          (right turtle 90)
          (baum turtle (* 2/3 len) (- n 1))
          (left turtle 45)
          (backward turtle len)))))

(define binarbaum
  (lambda (len n)
    (clear canvas)
    (move turtle 190 300)
    (baum turtle len n)))

(binarbaum 100 6)

Benutzer:Helm

Links

Sandkasten

Suche