Anonymous user
Metronome: Difference between revisions
Added EchoLisp
(Add Common Lisp - Metronome) |
(Added EchoLisp) |
||
Line 221:
HLLL
HLL; Evaluation aborted on NIL.</pre>
=={{header|EchoLisp}}==
<lang scheme>
;; available sounds are : ok, ko, tick, tack, woosh, beep, digit .
(lib 'timer)
(define (metronom) (blink) (play-sound 'tack))
(at-every 1000 'metronom) ;; every 1000 msec
</lang>
=={{header|Factor}}==
| |||