Metronome: Difference between revisions
Content added Content deleted
(Add Common Lisp - Metronome) |
(Added EchoLisp) |
||
| Line 221: | Line 221: | ||
HLLL |
HLLL |
||
HLL; Evaluation aborted on NIL.</pre> |
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}}== |
=={{header|Factor}}== |
||