Rosetta Code

99 Bottles of Beer/EsoLang: Difference between revisions

Page Discussion

99 Bottles of Beer/EsoLang (view source)

Revision as of 18:35, 1 September 2022

6,031 bytes added ,  1 year ago
m
Fixed syntax highlighting and duplicate headers. Removed Intercal which has no implementation.
m (→‎{{header|Befunge}}: Added "incorrect" template - befunge implementation produces an infinite loop.)
m (Fixed syntax highlighting and duplicate headers. Removed Intercal which has no implementation.)
 
(8 intermediate revisions by 4 users not shown)
Line 1:
<!--
===Esoteric===
=Esotheric=
-->
{{collection|99 Bottles of Beer}}
The task [[99 Bottles of Beer]]
done in [[:Category:Esoteric Languages|esoteric languages]].
 
<!--
See [[99 Bottles of Beer/EsoLang]]
-->
 
<!-- still missing:
Burlesque
Fish
Intercal
Malboge
Shakespeare
Unlambda
Whitespace
-->
__toc__
 
=={{header|=0815}}===
ATTENTION: Since 0815 output is in Hexadecimals only,
the bottles count is obviously in Hexadecimals too.
Line 26 ⟶ 21:
don’t panic, everything is OK.
 
<langsyntaxhighlight lang="0815">
<:63:x<:20:=<:62:>=>=><:6F:x<:74:=<:6C:>=>>=><:65:x<:73:=<:20:>=>=><:6F:x<:66:=<:20:>=>=>
<:62:x<:65:=<:72:>=>>=><:20:x<:6F:=<:6E:>=>=><:20:x<:74:=<:68:>=>=><:65:x<:20:=<:77:>=>=>
Line 52 ⟶ 47:
=<:01:x-^:_298:<:0D:~$@:20:{~%<:f:~}:_297:~{~$>=<:01:x-^:_297:<:0D:~$@:c:<:20:~}:_296:~{~
$>=<:01:x-^:_296:<:0D:~${x<:01:x->&==<:01:-^:_90:
</syntaxhighlight>
</lang>
 
=={{header|=Befunge}}===
{{incorrect|Befunge|It produces an infinite loop. Also a CR line break is very poorly supported in Befunge - LF (ASCII 10) would be considerably better on all platforms.}}
 
This outputs a single CR (ASCII code 13) between verses;
this needs changing for systems other than [[DOS]], [[Windows]], and [[Mac OS]].
 
'''Readable:'''
<!-- the version at http://99-bottles-of-beer.net/language-befunge-88.html looks like a train wreck to me -->
<langsyntaxhighlight lang="befunge"><v ,<.g10" bottles of beer on the wall"+*4310 550 <
c>:,|
$<v ,<.g10" bottles of beer"+*4310550
>:,|
$<v ,<"take one down, pass it around"+*4310550
>:,|
>$01g1-:01p v
v ,<.g10" bottles of beer on the wall"+*4310550<
>:,|
>134*$55+,0` |
@</langsyntaxhighlight>
 
'''Concise:'''
<syntaxhighlight lang="befunge">"d"4vv"take one down, pass it around"<>
:-2*< v "e wall"_v#\0`1%4./4::_0#%>#4^#
\4>/|>:#,_$:55+:,\4%3-!*0\>:>#,_$$:1+\1
>>>#@^>$"ht no "\>\"reeb fo selttob">>></syntaxhighlight>
 
=={{header|=Brainf***}}===
<langsyntaxhighlight lang="bf">>+++++++++[<+++++++++++>-]<[>[-]>[-]<<[>+>+<<-]>>[<<+>>-]>>>
[-]<<<+++++++++<[>>>+<<[>+>[-]<<-]>[<+>-]>[<<++++++++++>>>+<
-]<<-<-]+++++++++>[<->-]>>+>[<[-]<<+>>>-]>[-]+<<[>+>-<<-]<<<
Line 117 ⟶ 115:
++++++++>-]<++++.------------.---.>+++++++[<---------->-]<+.
>++++++++[<+++++++++++>-]<-.>++[<----------->-]<.+++++++++++
..>+++++++++[<---------->-]<-----.---.+++.---.[-]<<<]</langsyntaxhighlight>
 
=={{header|=Chef}}===
<langsyntaxhighlight lang="chef">99 Bottles Of Beer.
 
Ingredients.
Line 344 ⟶ 342:
Pour contents of the 2nd mixing bowl into the baking dish.
Pour contents of the 3rd mixing bowl into the baking dish.
Refrigerate for 1 hour.</langsyntaxhighlight>
 
=={{header|=Extended BrainF***}}===
[http://sylwester.no/ebf/ moreMore infoInfo aboutAbout EBF]
<langsyntaxhighlight lang="ebf">
;; Macroes
; create 100
Line 434 ⟶ 432:
)
 
</syntaxhighlight>
</lang>
 
=={{header|=FALSE}}===
<langsyntaxhighlight lang="false">[$." bottle"$1-["s"]?" of beer"]b:
99
[$][b;!" on the wall
Line 443 ⟶ 441:
Take one down and pass it around
"1-b;!" on the wall
"]#%</langsyntaxhighlight>
 
 
=={{header|=HQ9+}}===
<syntaxhighlight lang ="hq9plus">9</langsyntaxhighlight>
 
===LOLCODE===
=={{header|Intercal}}==
<syntaxhighlight lang="lolcode">HAI 1.3
See [[99 Bottles of Beer/Intercal]]
 
=={{header|LOLCODE}}==
<lang LOLCODE>HAI 1.3
 
I HAS A bottles ITZ 99
Line 476 ⟶ 471:
IM OUTTA YR song
 
KTHXBYE</langsyntaxhighlight>
 
=={{header|=Piet}}===
[http://www.toothycat.net/~sham/piet/99bottles.png see image]
 
=={{header|=SNUSP}}===
<langsyntaxhighlight lang="snusp"> /=!/===========!/==+++++++++# +9
| | /=!/=====@/==@@@+@+++++# +48 (itoa)
| | | | /==!/==@@@@=++++# +32 (space)
Line 500 ⟶ 495:
\@\<<<_.>>o.-n.<<_.>>>++t.<<+++h.---e.<_.>>>+++w.<<----a.>--l.l.>>CR.<---T<+++O<+B<<<#
|
\9.>9.>_.>B.>O.>T.t.<---l.<+++e.>>-s.<<<_.>>+++O.<+f.<_.>----b.+++e.E.>>-R.#</langsyntaxhighlight>
 
 
=={{header|Whenever}}==
===Unlambda===
<lang whenever>1 defer (4 || N(1)<N(2) && N(2)<N(3)) print(N(1)+" bottles of beer on the wall, "+N(1)+" bottles of beer,");
<syntaxhighlight lang="unlambda">
````s``s``si`kk``s``s`ks``s`k`s`k``s``si`k`ki`kkk`k``s``s`ksk`k.9``s``s``s
``si`k`ki`kk`k`d`.9.1``s``s``s``si`k`ki`kk`k`d`.9.0``s``s``si`kk``s``s`k`s
``s`ks``s``s`ksk`k`s`k.9``s``s`ks``s`k`s`ks``s``s`ks``s`kk``s`ks``s`k`s`k`
`si`kkk`k``s``s`ks``s`kk``s`ksk`k``s`k`s``s`kskk`k``s``s`ks``s``s`ksk`k`s`
k.1``s``s`ksk`k`s`k.0``s``si`k`ki`kk``s``s``s`k`s``si`k``s`k.9.1``s``s`ks`
`s``s`ks``s`k`s`k``si`kkk`k``s``s`ksk`k``s``s`ksk`k.1`k``s``si`k``s`k.1.1`
`si`k``s`k.0.1``s``si`k`ki`kk``s``s``s``si`k`ki`kk`k.9``s``s``si`kk``s``s`
ks``s`k`s`k``s``si`k`ki`kkk`ki``s`k``s`kr``s`k..``s``s``si`k`ki`kk``s``s``
si`kk`k`ki``s`k.s``s``s``si`kk`kk``s`k`d`.r`.o`.m`.
`.o`.N.e``s``s``si`k`k
i`k`ki``s``s``si`kk`k`ki``s``s``si`kk`kk``s`k.1``s`kr``s`k.,``s``s``si`k`k
i`kk``s``s``si`kk`k`ki``s``s``si`kk`kk``s`k.1``s`kr``s`kr``s`k..``s``s``si
`k`ki`kk``s``s``si`kk`k`ki``s``s``si`kk`kk``s`k.1`ki``s``si`k`ki`k`ki```s`
`s``si`kk``s``s``si`kk``si`k`ki``s`k``s``s`ks``s`k`s`k``s``si`k`ki`k`kik``
s``s`ks``s`k`s`k``s``si`kk`k`kik``s`k`s`k.s``s``s`ks``s`k`s`k``s``si`kk`kk
k``s`k`si``s`k`s`kr``s`k`s`k.,``s``s`ks``s`k`s`k``s``si`k`ki`kkk``s``s`ks`
`s`k`s`k``s``si`kk`k`kik``s`k`s`k.s``s``s`ks``s`k`s`k``s``si`kk`kkk``s`k`s
i``s`k`s`kr``s`k`s`kr``s`k`s`k.,``s``s`ks``s`k`s`k``s``si`k`ki`kkk``s``s`k
s``s`k`s`k``s``si`kk`k`kik``s`k`s`k.s``s``s`ks``s`k`s`k``s``si`kk`kkk`k``s
i`ki``si`k`ki``s``s`k``s``s``si`k`ki`k`ki``s``s``si`kk`k`ki``s`k.s``s``s``
si`kk`kk``s`k.9``s`k.9``s`kr``s`k.,``s``s``si`k`ki`kk``s``s``si`kk`k`ki``s
`k.s``s``s``si`kk`kk``s`k.9``s`k.9`ki``si`k`ki`k``s``si`k.8``s``si`k.7``s`
`si`k.6``s``si`k.5``s``si`k.4``s``si`k.3``si`k.2```s``si``s``si``s``si`k`d
`.,`.d`.n`.u`.o`.r`.a`. `.t`.i`. `.s`.s`.a`.p`. `.,`.n`.w`.o`.d`.
`.e`.n`
.o`. `.e`.k`.a`.T`rr`k`d`.l`.a`.w`. `.e`.h`.t`. `.n`.o`.
.l``s``si`k`d`.e`
.e`.b`. `.f`.o`. .r`k`d`.l`.t`.t`.o`.b`.
.ei``s`k`s``s`ks``s`k`sik``s`kkki
</syntaxhighlight>
 
 
===xEec===
<syntaxhighlight lang="xEec">
h#99 >0000 o# jn000_ >0000_ p o# jn0_00 >000_0 p jn00_0 >00_00 p h#1 r ms t h#1 ms p h?
jz00100 p o# jn001_0 >01000 p jn0000 >00100 p o# jn00_10 >_0000 p o# jn0_100 >0_000 p o#
jn01110_ >1 p jn0200_0 >10_010 jz~0 >00_0 h#0 h#32 h$, h$d h$n h$u h$o h$r h$a h#32 h$t
h$i h#32 h$s h$s h$a h$p h#32 h$d h$n h$a h#32 h$n h$w h$o h$d h#32 h$e h$n h$o h#32 h$e
h$k h$a h$T >lt o$ p jnlt jz00_00 >0200_0 h#0 h#10 h$. h$l h$l h$a h$w h#32 h$e h$h h$t
h#32 h$n h$o h#32 h$r h$e h$e h$b h#32 h$f h$o h#32 h$s h$e h$l h$t h$t h$o h$b h#32 h$e
h$r h$o h$m h#32 h$o h$n h#32 h$, h$d h$n h$u h$o h$r h$a h#32 h$t h$i h#32 h$s h$s h$a
h$p h#32 h$d h$n h$a h#32 h$n h$w h$o h$d h#32 h$e h$n h$o h#32 h$e h$k h$a h$T >10_01
o$ p jn10_01 jz10_010 >0_00 h#0 h#10 h$. h$r h$e h$e h$b h#32 h$f h$o h#32 h$s h$e h$l
h$t h$t h$o h$b h#32 >2211 o$ p jn2211 jz000_0 >000_ h#0 h#32 h$, h$l h$l h$a h$w h#32
h$e h$h h$t h#32 h$n h$o h#32 h$r h$e h$e h$b h#32 h$f h$o h#32 h$s h$e h$l h$t h$t h$o
h$b h#32 >1122 o$ p jn1122 jz0000_ >001_0 h#0 h#10 h$. h$l h$l h$a h$w h#32 h$e h$h h$t
h#32 h$n h$o h#32 h$r h$e h$e h$b h#32 h$f h$o h#32 h$s h$e h$l h$t h$t h$o h$b h#32
>1111 o$ p jn1111 jz01000 >00_10 h#0 h#10 h$. h$l h$l h$a h$w h#32 h$e h$h h$t h#32 h$n
h$o h#32 h$r h$e h$e h$b h#32 h$f h$o h#32 h$e h$l h$t h$t h$o h$b h#32 >2121 o$ p jn2121
jz_0000 >0_100 h#0 h#32 h$, h$l h$l h$a h$w h#32 h$e h$h h$t h#32 h$n h$o h#32 h$r h$e
h$e h$b h#32 h$f h$o h#32 h$e h$l h$t h$t h$o h$b h#32 >1331 o$ p jn1331 jz0_000 >01110_
h#0 h#10 h$. h$r h$e h$e h$b h#32 h$f h$o h#32 h$e h$l h$t h$t h$o h$b h#32 >1551 o$ p
jn1551 jz1 >~0 h$. h$l h$l h$a h$w h#32 h$e h$h h$t h#32 h$n h$o h#32 h$r h$e h$e h$b
h#32 h$f h$o h#32 h$s h$e h$l h$t h$t h$o h$b h#32 h$9 h$9 h#32 h$, h$e h$r h$o h$m h#32
h$e h$m h$o h$s h#32 h$y h$u h$b h#32 h$d h$n h$a h#32 h$e h$r h$o h$t h$s h#32 h$e h$h
h$t h#32 h$o h$t h#32 h$o h$G h#10 h$. h$r h$e h$e h$b h#32 h$f h$o h#32 h$s h$e h$l h$t
h$t h$o h$b h#32 h$e h$r h$o h$m h#32 h$o h$n h#32 h$, h$l h$l h$a h$w h#32 h$e h$h h$t
h#32 h$n h$o h#32 h$r h$e h$e h$b h#32 h$f h$o h#32 h$s h$e h$l h$t h$t h$o h$b h#32 h$e
h$r h$o h$m h#32 h$o h$N >5115 o$ p jn5115
</syntaxhighlight>
 
===Whenever===
<syntaxhighlight lang="whenever">1 defer (4 || N(1)<N(2) && N(2)<N(3)) print(N(1)+" bottles of beer on the wall, "+N(1)+" bottles of beer,");
2 defer (4 || N(1)==N(2)) print("Take one down and pass it around,");
3 defer (4 || N(2)==N(3)) print(N(1)+" bottles of beer on the wall.");
4 1#98,2#98,3#98;</langsyntaxhighlight>
 
 
===Whitespace===
El código no es mío, sólo lo reproduzco.
Los honores son para Andrew Kemp <ajwk@pell.uklinux.net>
<syntaxhighlight lang="whitespace">
 
 
 
 
 
 
 
 
 
 
 
</syntaxhighlight>
PureFox
9,476

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/251694...329488"