99 bottles of beer: Difference between revisions
Content added Content deleted
Grammarware (talk | contribs) (→{{header|BabyCobol}}: fix bugs) |
Not a robot (talk | contribs) (Add ABC) |
||
Line 215: | Line 215: | ||
cl_demo_output=>display( ). |
cl_demo_output=>display( ). |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
=={{header|ABC}}== |
|||
<syntaxhighlight lang="abc">HOW TO RETURN bottles n: |
|||
SELECT: |
|||
n<0: RETURN "99 bottles" |
|||
n=0: RETURN "No more bottles" |
|||
n=1: RETURN "1 bottle" |
|||
n>1: RETURN "`n` bottles" |
|||
HOW TO SING VERSE n: |
|||
WRITE "`bottles n` of beer on the wall,"/ |
|||
WRITE "`bottles n` of beer,"/ |
|||
SELECT: |
|||
n=0: WRITE "Go to the store and buy some more,"/ |
|||
n=1: WRITE "Take it down and pass it around,"/ |
|||
n>1: WRITE "Take one down and pass it around,"/ |
|||
WRITE "`bottles (n-1)` of beer on the wall."/ |
|||
WRITE / |
|||
FOR n IN {0..99}: |
|||
SING VERSE 99-n</syntaxhighlight> |
|||
=={{header|ACL2}}== |
=={{header|ACL2}}== |