Scheme Turtle Vieleck

Aus ProgrammingWiki

(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))))

(clear canvas)
(center turtle)
(vieleck turtle 100 7)

Seite
Quelltext
Versionen/Autoren

Konto registrieren
Anmelden

Navigation

Startseite
Letzte Änderungen
Alle Seiten
Einführungskurs
Hilfe
Dateien

Suche

Werkzeuge

Links auf diese Seite
Spezialseiten

Zuletzt geändert: 2011-01-10T19:42:29+00:00 · ProgrammingWiki · PHP & JSON

Datenschutz · Impressum