99 bottles of beer: Difference between revisions

Added hexiscript
m (→‎{{header|V}}: removed <nowiki> tags inside <lang> block)
(Added hexiscript)
Line 3,741:
 
}</lang>
 
=={{header|hexiscript}}==
<lang hexiscript>fun bottles amount beverage location
let bottle " bottles of "
if amount = 0; let amount "No more"
elif amount = 1; let bottle " bottle of "; endif
return amount + bottle + beverage + " " + location
endfun
 
fun take amount location
return "Take " + amount + " " + location
endfun
 
fun pass entity destination
return ", pass " + entity + " " + destination
endfun
 
let amount 99
while amount > 0
println bottles amount "beer" "on the wall"
println bottles amount "beer" ""
println take "one" "down" + pass "it" "around"
println bottles (--amount) "beer" "on the wall\n"
endwhile</lang>
 
=={{header|HicEst}}==
Anonymous user