5 lines
169 B
Text
5 lines
169 B
Text
|
q)/ Fizzbuzz
|
||
|
|
q)fb:{(2 sv not x mod/:5 3)'[;`fizz;`buzz;`fizzbuzz]`$string x}
|
||
|
|
q)fb 1+til 20
|
||
|
|
`1`2`fizz`4`buzz`fizz`7`8`fizz`buzz`11`fizz`13`14`fizzbuzz`16`17`fizz`19`buzz
|