Metronome: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) 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}}== |