Metronome: Difference between revisions

Content added Content deleted
No edit summary
Line 889: Line 889:
130 if counter=bpb then counter=0
130 if counter=bpb then counter=0
140 return</lang>
140 return</lang>

=={{header|Nim}}==
Textual version only.
<lang Nim>import os

proc metronome(tempo, pattern: Positive) =
let delay = 60_000 div tempo # In milliseconds.
var beats = 0
while true:
stdout.write if beats mod pattern == 0: "\nTICK" else: " tick"
stdout.flushFile
inc beats
sleep(delay)

metronome(72, 4)</lang>


=={{header|Perl}}==
=={{header|Perl}}==