Metronome: Difference between revisions

m
→‎{{header|Perl}}: actually produce output
(Added Perl example)
m (→‎{{header|Perl}}: actually produce output)
Line 709:
while () {
if (0 == $i++ % $beats_per_bar) {
$result .=print "\nTICK";
} else {
$result .= print " tick";
}
sleep $duration;
2,392

edits