Anonymous user
99 bottles of beer: Difference between revisions
m
Added Kabap
m (Added Kabap) |
|||
Line 4,249:
=={{header|K}}==
<lang k>`0:\:{x[z],y,a,x[z],a,"Take one down, pass it around",a,x[z-1],y,a,a:"\n"}[{($x)," bottle",:[x=1;"";"s"]," of beer"};" on the wall"]'|1_!100</lang>
=={{header|Kabap}}==
<lang Kabap>
// Loop that spits lyrics to "99 Bottles of Beer"
$n = 99;
$out = "";
:loop;
$out = $out << $n << " bottles of beer on the wall, " << $n << " bottles of beer. Take one down, pass it around, " << $n - 1 << " bottles of beer on the wall… ";
$n = $n - 1;
if $n > 0;
goto loop;
return = $out;
</lang>
=={{header|Kitten}}==
| |||