Metronome: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
m (→{{header|J}}) |
||
Line 464: | Line 464: | ||
NB. Basic tacit version; this is probably considered bad coding style. At least I removed the "magic constants". Sort of. |
NB. Basic tacit version; this is probably considered bad coding style. At least I removed the "magic constants". Sort of. |
||
'BEL BS LF'=: 7 8 10 { a. |
'BEL BS LF'=: 7 8 10 { a. |
||
'print delay'=: 1!:2&4`(6!:3) |
'`print delay'=: 1!:2&4`(6!:3) |
||
met=: _&$: :((] ({:@] [ LF print@[ (-.@{.@] [ delay@[ print@] (BEL,2#BS) , (2 2$'\ /') {~ {.@])^:({:@])) 1 , <.@%) 60&% [ print@('\ '"_)) |
met=: _&$: :((] ({:@] [ LF print@[ (-.@{.@] [ delay@[ print@] (BEL,2#BS) , (2 2$'\ /') {~ {.@])^:({:@])) 1 , <.@%) 60&% [ print@('\ '"_)) |
||
</lang> |
</lang> |