Scheme Sound

Aus ProgrammingWiki

Archivierte Version vom 2008-11-26T11:34:27+00:00. Aktuelle Version

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

(define (run n)

   (if (= n 0) 'fertig
     (begin
       (play piano 50 100) 
       (run(- n 1))
     )
   )

)