Scheme Turtle Vieleck

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
<canvas w="500" h="400"></canvas>

<code id="4ca19ba2dceba" hidden>
(define center
  (lambda (turtle)
    (move turtle 200 200)))

(define vieleck
  (lambda (turtle s n)
    (letrec
        ([winkel (/ 360 n)]
         [help-vieleck
          (lambda (alpha)
            (if (>= alpha 360)
                #t
                (begin
                  (forward turtle s)
                  (right turtle winkel)
                  (help-vieleck (+ alpha (floor winkel))))))])
      (help-vieleck 0))))
</code>

<run id="4c1720a2cc653">
(clear canvas)
(center turtle)
(vieleck turtle 100 7)
</run>