Scheme Turtle 4

Aus ProgrammingWiki

Archivierte Version vom 2010-01-03T09:51:48+00:00. Aktuelle Version

Nichtbinär-Baum

Natürlich kann man den Baum, den eine (oder mehrere geklonte) Turtle(s) zeichnen soll(en), auch ganz anders definieren. Die folgende Prozedur zeigt ein Beispiel für eine alternative Verzweigungsvariante. Am rekursiven Charakter der Beschreibung des Zeichenobjekts kann man trotzdem unverändert festhalten.

(define tree
 (lambda(side winkel) 
  (cond [(< side 20) #t] 
        [else  
          (penwidth turtle (+ (/ side 10) 1 ))    
          (forward turtle side)  
          (left turtle winkel)  
          (tree (/ side 2) winkel)  
          (left turtle winkel)  
          (tree (/ side 2) winkel)  
          (right turtle (* 4 winkel))  
          (tree (/ side 2) winkel)  
          (left turtle winkel)  
          (tree (/ side 2) winkel)  
          (left turtle winkel)  
          (backward turtle side)])))

<eval id="4ae30126a3ec6"> (clear canvas) (move turtle 200 190) (tree 100 25)</eval>

Scheme Turtle 5

Scheme Turtle 4

Nichtbinär-Baum

Suche