Benutzer:Helm

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
Hello, this is me.
== Links ==
[https://twitter.com/helm95 Twitter]

== Sandkasten ==
<table>
<tr>
<td width="400" align="center" valign="top">
<canvas w="400" h="400"></canvas>
</td>
<td width="920" align="left" valign="top">

<code id="5061ab861a7ff">
(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 binaerbaum
  (lambda (len n)
    (clear canvas)
    (move turtle 190 300)
    (baum turtle len n)))
</code>

<run id="5061ab861a87d">
(binaerbaum 100 6)
</run>
</td>
</tr>
</table>