Scheme Sound

Wiki-Quelltext dieser Seite.

<language>Scheme</language>
<eval>
(define piano (instrument 1))

(define (run n)
    (if (= n 0) 'fertig
      (begin
        (play piano 50 100) 
        (run(- n 1))
      )
    )
)
</eval>