Scheme Sound

Aus ProgrammingWiki

Archivierte Version vom 2015-06-03T15:48:58+00:00. Aktuelle Version

(define piano (instrument 1))

(define (run n)
    (if (= n 0) 'fertig
      (begin
        (play piano (* n 10) 100) 
        (run(- n 1))
      )
    )
)
(run 10);

Konto registrieren
Anmelden

Scheme Sound

Suche