FizzBuzz: Difference between revisions
Content added Content deleted
imported>Tth m (Fix link) |
imported>SJT (→{{header|Q}}: Improved solution and explained it) |
||
Line 9,047: | Line 9,047: | ||
<syntaxhighlight lang="q"> |
<syntaxhighlight lang="q"> |
||
q){( |
q){(2 sv not x mod/:5 3)'[;`fizz;`buzz;`fizzbuzz]`$string x}1+til 20 |
||
`1`2`fizz`4`buzz`fizz`7`8`fizz`buzz`11`fizz`13`14`fizzbuzz`16`17`fizz`19`buzz</syntaxhighlight> |
`1`2`fizz`4`buzz`fizz`7`8`fizz`buzz`11`fizz`13`14`fizzbuzz`16`17`fizz`19`buzz</syntaxhighlight> |
||
https://code.kx.com/q/learn/reading/fizzbuzz/ |
https://code.kx.com/q/learn/reading/fizzbuzz/<br> |
||
https://code.kx.com/q/ref/sv/<br> |
|||
https://code.kx.com/q/ref/maps/#case |
|||
<syntaxhighlight lang="q"> |
|||
q)show x:1+til 20 |
|||
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
|||
q)x mod/:5 3 |
|||
1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 |
|||
1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 0 1 2 |
|||
q)not x mod/:5 3 |
|||
00001000010000100001b |
|||
00100100100100100100b |
|||
q)show i:2 sv not x mod/:5 3 / binary decode |
|||
0 0 1 0 2 1 0 0 1 2 0 1 0 0 3 0 0 1 0 2 |
|||
q)(`$string x;`fizz;`buzz;`fizzbuzz) |
|||
`1`2`3`4`5`6`7`8`9`10`11`12`13`14`15`16`17`18`19`20 |
|||
`fizz |
|||
`buzz |
|||
`fizzbuzz |
|||
q)i'[`$string x;`fizz;`buzz;`fizzbuzz] / Case iterator |
|||
`1`2`fizz`4`buzz`fizz`7`8`fizz`buzz`11`fizz`13`14`fizzbuzz`16`17`fizz`19`buzz</syntaxhighlight> |
|||
=={{header|QB64}}== |
=={{header|QB64}}== |