User:DGCK81LNN
Jump to navigation
Jump to search
My homepage: https://dgck81lnn.github.io (CHINESE) Blog: https://dgck81lnn.github.io/blog/ (CHINESE)
Below's some interesting stuff I did.
Befunge
number guessing game (2020-09)
v>>> > v>>> > v 012 3 012 3 ^?^ ^?^ >>?#v?4>>?#v?4v v?v v?v 98765 98765 >>>>> ^>>>>> v v 0 + * + : 5 < >"!sseuG">:#,_v 0v_v#:-&:,+:5$< , v>0"!niw uoY" +0>:#,_$5:+,@ :>`0\"!"\v v"small"_"gib" ^>" ooT">:#,_$5
The upper half of this program simply generates two random integers from 0 to 9 and puts them together to make a 2-digit decimal number.
99 bottles of beer with Go to the store, buy some more (2020-12)
v> >:#v_#v #"" oN"# ,,# < >"s",>052*",llaw eht no reeb fo ">:#,_$v 9 >:.>"elttob",,,,,,:1-#^_ ^ v _v#!-1:,,,,,,"bottle"<.:< 5* v\*25\0:$_ #!,#:<" of beer."*250<,"s"< > #,, #"No ""# ^#_^#!:< 6+v_",erom emos yub ,erots eht ot oG">:#,_$956+*.88*20pv Befunge-93 v>",dnuora ti ssap ,nwod eno ekaT">:#,_$1-:!#v_:.v <>:#,_$25*:,, # "on the wall."0< _v#!-1:,,,,,,"bottle"< < < ^" of beer " >^99 bottles of beer^,"s"< > #,, #"No ""#<^ dgck81lnn.github.io
brainfuck
Quine (2020-10)
>>>>++++++>++++++>++++++>+>+>+>+++++++>+++>+++++>+>+>+>+++++++>+++>+++++>+>+>+>+>+>++++++>++++++++>++++++>++++++++>+++++>+++++>+++++++>+++>++++++>+>++++++>+>++++++>+>++++++>+>+++++>+++++>+++++>+++++>++++++++>++++++>+++>+++>++++++>+++>++++++>++++++>+>++++++>++++++>++++++>++++++>++++++>+>+>+>+>+++++++>+++>+++++>+>+>+>+>+++++++>+++>+++++>+>+>+>+>++++++>++++++++>++++++>++++++++>+++++>+++++>+++++++>+++>+++++>+>+++++>+>++++++>++++++>++++++++>+++++>+++>+++>+++++>+++>+++>+++>+++>++++++>++++++>++++++>++++++>++++++>++++++>+>+>+>+++++++>+++>+++++>+>+>+>+>+>+++++++>+++>+++++>+>+>+>+>+>+>++++++>++++++++>++++++>++++++++>+++++>+++++>+++++++>+++>+++++>+>+++++>+>++++++>++++++>++++++++>+++++>+>+>+>+++++>+>+++++>++++>++++>++++>+++++++>+++++>++++++++>+++++>+++++>+++++++>+++++>++++++++>++++++>+++++++>+++++++>++++++>++++++++>++++++>++++++>++++++>++++++>++++++>++++++>++++>+++++++>+++++>++++++++>+++++>+++++++>+++++>++++++++>++++++>+++++++>+++>+++++>+++++>+>++++++>++++++>++++++>+++++++>++++++>++++++++>++++++>++++>+++++>+++++>+++++++>+++++>++++++++>+++++>+++++++>++++++>++++++++>++++++>++++++++>++++++>++++++++>+++++>+++++>+++++>+++++++>+++++>++++++++>++++++>+++++++>+++++>+++++>+>++++++>++++++>+++++++>+++>++++++>+++++++>++++++>++++++++>++++++>++++++>++++++>++++++>++++++>++++++>++++++>++++++>++++++>++++++>+++++++>+++++>++++++++>++++++>+++++++>+++>+++++>+>++++++>++++++++>+++++>+++++++>+++++>++++++++>+++++>+++++>+++++++>+++++>++++++++>+++++>+++++++>++++++>++++++++>++++++>++++++++>++++++>+++++++>++++++>++++++++>++++++>++++++>+++++++>++++++>++++++++>+++++>++++>+++++++>+++++++>+++>++++++>+>+++++>++++++++>+++++>++++++++>+++++>+++++>+++++>+++++++>+++++>++++++++>++++++>++++++++>>>+++[-<+++[-<+++++>]>]<<[->+>+>+>+<<<<]>-->->>+>>>>>++++[-<++++[-<++++>]>]<<[-<+<+>>]<--<---->>>>>>+++[-<+++++[-<++++++>]>]<<[-<+<+>>]<+++<+<...[<]<<[<]>[[>]>>>>>>.[<]<[<]>[-<<+>>>[>]>.<<[<]<[>]>]>]<<<[<]>[<<+>>[->[>]>>>>>>>>>>[<]>[-<+>]<[<]<<[<]<[>]>]>[>]>>[>]<.[[->+<]<]<<<[<]>]
JvavScript
JavaScript but only ( ) [ ] < > + - ! , = ? : _ $, and _ = alert, __ = prompt, $ = String.fromCharCode, $$ = globalThis. A more lenient version of JSFuck.
brainfuck interpreter (2022-11)
const _ = alert, __ = prompt, $ = String.fromCharCode, $$ = this;
_((($_,_$$,__$)=>$_($_,_$$,+[],__$,+[],[]+[],$$[$([+!!_]+-[]-!!_-!!_+[!!_+!!_],[+!!_]+-[]+(+!!_),[+!!_]+-[]+(!!_+!!_),+!!_+[+!!_]+-[]-!!_-!!_,[+!!_]+-[]+(+!!_),[+!!_]+-[]+-[]-!!_,+!!_+[+!!_]+(!!_+!!_+!!_+!!_+!!_+!!_))][$([+!!_]+-[]+-[]-!!_,+!!_+[+!!_]+(+!!_),+!!_+[+!!_]+-[],+!!_+[+!!_]+(!!_+!!_+!!_+!!_+!!_),+!!_+[+!!_]+(!!_+!!_+!!_+!!_+!!_+!!_),+!!_+[+!!_]+(!!_+!!_+!!_+!!_),+!!_+[!!_+!!_]+-[]-!!_-!!_-!!_,[+!!_]+-[]+-[]-!!_,+!!_+[+!!_]+(!!_+!!_+!!_+!!_+!!_+!!_))]($$[$([+!!_]+-[]-!!_-!!_-!!_+[!!_+!!_+!!_],+!!_+[+!!_]+-[],+!!_+[+!!_]+(!!_+!!_+!!_+!!_+!!_+!!_),!!_+!!_+!!_+!!_+!!_+[!!_+!!_+!!_+!!_+!!_+!!_],!!_+!!_+!!_+!!_+!!_+!!_+[!!_+!!_+!!_+!!_+!!_],+!!_+[+!!_]+(!!_+!!_+!!_+!!_),+!!_+[+!!_]+(!!_+!!_+!!_+!!_),[+!!_]+-[]+-[]-!!_-!!_-!!_,+!!_+[!!_+!!_]+(+!!_))],[[!!_+!!_+!!_]+-[]+-[]+-[]+-[]]),+[]))(($_,_$$,_$$_,__$,__$_,$$_,$__,$__$)=>(
_$$[_$$_]?
_$$[_$$_]==$([!!_+!!_+!!_+!!_+!!_+!!_]+-[])?
$_($_,_$$,_$$_+!!_,__$,__$_,$$_,$__,$__$?$__$-!!_:[!!_+!!_+!!_]+-[]+-[]+-[]+-[]-!!_)
:_$$[_$$_]==$(!!_+!!_+!!_+!!_+!!_+!!_+[!!_+!!_])?
$_($_,_$$,_$$_+!![],__$,__$_,$$_,$__,$__$==[!!_+!!_+!!_]+-[]+-[]+-[]+-[]-!!_?+[]:$__$+!!_)
:(
_$$[_$$_]==(-!!_+[])[+[]]?
($__[$__$]--,!!_)
:_$$[_$$_]==$(!!_+!!_+!!_+!!_+[!!_+!!_+!!_])?
($__[$__$]++,!!_)
:_$$[_$$_]==$(!!_+!!_+!!_+!!_+[!!_+!!_+!!_+!!_+!!_+!!_])?
($$_+=$($__[$__$]),!!_)
:_$$[_$$_]==$(!!_+!!_+!!_+!!_+[!!_+!!_+!!_+!!_])?
($__[$__$]=__$[__$_]?__$[$([+!!_]+-[]+-[]-!!_,[+!!_]+-[]+(!!_+!!_+!!_+!!_),[+!!_]+-[]+-[]-!!_-!!_-!!_,+!!_+[+!!_]+(!!_+!!_+!!_+!!_),[+!!_]+-[]+-[]-(!!_+!!_+!!_+[!!_+!!_+!!_]),+!!_+[+!!_]+(+!!_),[+!!_]+-[]+-[],[+!!_]+-[]+(+!!_),!!_+!!_+!!_+!!_+!!_+!!_+[!!_+!!_+!!_+!!_+!!_],+!!_+[+!!_]+(!!_+!!_+!!_+!!_+!!_+!!_))](__$_++):-!!_,!!_)
:!_
)?
$_($_,_$$,_$$_+!!_,__$,__$_,$$_,$__,$__$)
:_$$[_$$_]==$([+!!_]+-[]-!!_+[+!!_])?
$_($_,_$$,$__[$__$]?_$$_+!!_:(($_$,_$$,_$$_)=>$_$($_$,_$$,_$$_,+[]))(($_$,_$$,_$$_,_$)=>(
_$$[_$$_]?
_$$[_$$_]==$([+!!_]+-[]-!!_+[+!!_])?
$_$($_$,_$$,_$$_+!![],_$+!!_)
:_$$[_$$_]==$([+!!_]+-[]-!!_+[!!_+!!_+!!_])?
_$?$_$($_$,_$$,_$$_+!!_,_$-!!_):_$$_+!!_
:$_$($_$,_$$,_$$_+!!_,_$)
:_$$_
),_$$,_$$_+!!_),__$,__$_,$$_,$__,$__$)
:_$$[_$$_]==$([+!!_]+-[]-!!_+[!!_+!!_+!!_])?
$_($_,_$$,$__[$__$]?(($_$,_$$,_$$_)=>$_$($_$,_$$,_$$_,+[]))(($_$,_$$,_$$_,_$)=>(
_$$[_$$_]?
_$$[_$$_]==$([+!!_]+-[]-!!_+[!!_+!!_+!!_])?
$_$($_$,_$$,_$$_-!!_,_$+!!_)
:_$$[_$$_]==$([+!!_]+-[]-!!_+[+!!_])?
_$?$_$($_$,_$$,_$$_-!![],_$-!!_):_$$_+!!_
:$_$($_$,_$$,_$$_-!!_,_$)
:+[]
),_$$,_$$_-!!_):_$$_+!!_,__$,__$_,$$_,$__,$__$)
:$_($_,_$$,_$$_+!!_,__$,__$_,$$_,$__,$__$)
:$$_
),__($([+!!_]+-[]+-[]-!!_,+!!_+[+!!_]+(+!!_),[+!!_]+-[]+-[],[+!!_]+-[]+(+!!_))),__($([+!!_]+-[]+(!!_+!!_+!!_+!!_+!!_),+!!_+[+!!_]+-[],+!!_+[+!!_]+(!!_+!!_),+!!_+[!!_+!!_]+-[]-!!_-!!_-!!_,+!!_+[+!!_]+(!!_+!!_+!!_+!!_+!!_+!!_)))))
Due to the use of recursion instead of loops and the lack of Proper Tail Calls, though, this easily overflows the call stack.
Wenyan
I coded 閱文秘術, a Wenyan library to synchronously scan the standard input in a Node.js runtime.
RBF*ck
Ruby but without alphanumerics.
Hello World (2024-04)
$><<(""<<~-~-~-~-~-~-~-~-(-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~
-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~(
[]<=>[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~
-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<(
([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~-~(-~-~-~-~-~([]<=>[])<<-~-~-~-~(
[]<=>[]))<<~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~(-~-~-~-~-~-~-~([
]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[])
)<<-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~(([[]]<=>[])<<-~-~-~-~-~([
]<=>[]))<<-~-~-~-~-~-~-~-~-~-~([]<=>[]))
99 bottles of beer (2024-09)
(->(&_){_.(([[]]<=>[])..-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[])),&->(_){$><<
(+"#{_}"<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([
]<=>[]))<<~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~(-~-~-~-~-~-~-
~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>
[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([
]<=>[])<<-~-~-~-~-~([]<=>[]))<<(_==([[]]<=>[])?"":-~-~-~(-~-~-~-~-~-~-~([]<=>[]
)<<-~-~-~-~([]<=>[])))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~-~([
]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[])
)<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[])
)<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[]
)<<-~-~-~-~-~([]<=>[]))<<-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<(([[]
]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~
-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[
]))<<-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-~-~-~-~-~-~-(-~-~
-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~(
[]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~-~(-~-~-~-~-~-~-~([
]<=>[])<<-~-~-~-~([]<=>[]))<<-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-~-~-~-(
-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-
~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~-~-
~-~-~([]<=>[])<<"#{_}"<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~(-~-~-~([]<=>[]
)<<-~-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-
~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~(-~-~-~-~-~-~-~([]<=>[]
)<<-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-
~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<(_==([[]]<=>[])?"":-~-~-~(-~-~-~-
~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[])))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~
-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-
~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~(-~-~-~([]<=>[])<<-~-~-~-
~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~
-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[
]))<<~-~-(-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~-~-~-~-~([]<=>[])<<-~
-~-~-~(-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~(-~-~-~([]<=>[])<<-~-~-~-~-~([
]<=>[]))<<~-~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-
~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~-~-
~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([
]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~
-~-~([]<=>[]))<<-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~-
~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~
([]<=>[]))<<~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~([
]<=>[])<<-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<(-~-~-~-~-~-~-~
([]<=>[])<<-~-~-~-~([]<=>[]))<<-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~(
-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-
~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-~-~-~-~-~-~-(-~-~-~-~-~-~
-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([
]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~(-~-~-~([]<=>[])<<-~-~-~-~-~([
]<=>[]))<<-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~-~([
]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[
]))<<~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~(-~-~-~([]<=>[]
)<<-~-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-
~-~-~-~-~-~([]<=>[])<<"#{~-_==([]<=>[])?""<<~-~-(-~-~-~-~-~([]<=>[])<<-~-~-~-~([
]<=>[]))<<~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[])):~-_}"<<(([[]]<=>[])<<-~
-~-~-~-~([]<=>[]))<<-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~-
~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>
[]))<<-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~-~-~-
~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]
))<<(~-_==([[]]<=>[])?"":-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[])))<<((
[[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[])
)<<-~-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~(
[]<=>[]))<<-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[]
)<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~(
-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[])
)<<~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-(-~-~-~-~-~-~-~([]<=>[]
)<<-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~(-~-~-~-~-~-~
-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-~-~-~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-
~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<(([[]]<=>[])<<-
~-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[])
)<<-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-
~-~-~-~([]<=>[]))<<~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<~-~-(-~
-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~-~-~-~
-~-~-~([]<=>[]))})}).(&:"#{""<<-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[])
)<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~-~(-~-~-~-~-~-~-~
([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[])
)<<-~-~(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))<<-~-~-~(-~-~-~-~-~-~-~([]<=>
[])<<-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<~-(-~
-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~-~-~(-~-~-~([]<=>[])<<-~-~-~-~-~([
]<=>[]))<<-~(-~-~-~([]<=>[])<<-~-~-~-~-~([]<=>[]))<<-~-~-~(-~-~-~([]<=>[])<<-~-~
-~-~-~([]<=>[]))<<~-~-~-~-~-~-~-~-(-~-~-~-~-~-~-~([]<=>[])<<-~-~-~-~([]<=>[]))}"
)
Unmangled code:
(-> (&p) {
p.(
1..99,
&-> (n) {
$> << (
+"#{n}" <<
" bottle" <<
(n == 1 ? "" : "s") <<
" of beer on the wall,\n" <<
"#{n}" <<
" bottle" <<
(n == 1 ? "" : "s") <<
" of beer.\nTake one down, pass it around,\n" <<
"#{n - 1 == 0 ? "No" : n - 1}" <<
" bottle" <<
(n - 1 == 1 ? "" : "s") <<
" of beer on the wall.\n\n"
)
}
)
}).(&:reverse_each)