Scheme Turtle 5

Random-Walk

Diese Prozedur verdeutlich den Weg in den rekursiven Abstieg und zurück, wie er bei echter Rekursion stattfindet, grafisch.

<eval> (define random</eval>

 (random-maker 19716))  ;; Anfangswert verändern!

(clear canvas) (move turtle 200 310) (pencolor turtle 0 0 200)

(define random-walk

 (lambda (angle length n turtle)
   (if (= n 0)
       (penerase turtle)
       ;(pencolor turtle 220 0 0)
       (begin          
         (forward turtle length)
         (right turtle angle)
         (random-walk (+ 5 (random angle))(+ 5 (random length)) (- n 1) turtle)
         (left turtle angle)
         (backward turtle length)))))

(random-walk 360 20 100 turtle)