99 bottles of beer on the wall

[cormullion]

Cheers - to your good health! Are you going to post it on the web site?

[m i c h a e l]

Cheers! Click (touching Bertrand's glass), click (and cormullion's). To newLISP!



Yes cormullion, you're right, I should post this to the 99 Bottles website. Unfortunately, I'm a notorious procrastinator! That's why I submitted it before responding ;-)



The submission form mentioned it may take a while for it to show up, so we'll have to wait and see.



m i c h a e l

[m i c h a e l]

cormullion,



How about posting your creative 99 Bottles contribution, as well?

Code Select Expand

#!/usr/bin/env newlisp
                                 (eval-string
                                  (base64-dec
                                 (replace {s}
                                   [text] KGRl
                                 Zm luZ SAo Ym9
                                 0dG xlc yBu KS
                                 AKIC AoY 29u Z
                                 CAKIC AgI CAo
                                 KD4gbi AyK SAK
                                  ICAgI CAgI CA
                                  ocHJpb nRsb i
                                 A oc3Rya W5nI
                                 G4 geyBib 3R 0
                                  bGVzI G9mIGJ
                                 l ZXIgb 24gdGh
                                  l IHd hbGwsI
                                 H0g biB 7IGJvd
                                    HRsZXM gb
                                 2Y g YmVlc i4g
                               VGF rZSBv b mUgZG9
                                3biBh bmQ gcG Fzc
                               yBp dCBhcm 91bmQs
                             IH0gKC 0gbiAx K SB7IG
                             JvdHRs ZXMgb2 Yg YmVl
                             ciBvbi B0aGUg d2FsbC 5
                             9KSkp IAogIC Ag ICgoPS
                              Bu IDIp IAogIC AgICAg
                              IChwcm lu d GxuIC hzd
                           HJp bmcgbi B7IGJv dHR sZX
                           Mg b2YgYm VlciBv biB0aG Ug
                            d2Fs bCwgfS Bu IHsgYm 90d
                           Gxl cyBvZ i BiZWVy LiBUYW
                           tlIG9u ZSBkb3 duI GFuZCB w
                           YXNzI Gl0IGF yb3Vu Z CwgMS
                           B ib3R0b  GUgb2Y gYm Vlc iB
                           vbi B0aGUg d2FsbC 59 KSkp
                           IAogIC AgICgo PSBuID EpIAo
                           g ICAgIC AgIChw cmlud G xu
                           IHsx IGJvdH RsZSBv ZiB iZW
                            VyIG9u IHRoZS B3YWxs L CA
                           xIG JvdHRs Z SBvZi BiZWVy L
                           iBUYW tlIG9u ZSBkb3 duIG F
                           u ZCBwYX NzIGl0 IGFyb3 Vu
                           ZCwg bm8gbW 9yZSBi b3R0bG
                           VzIG9m IGJlZX Igb24g dGhlI
                            H dhbGwu fSkpIA ogICAg IC
                           g oPS BuIDAp IAogIC AgICAg
                            I Chwcm ludGxu IHtOby Btb
                           3Jl IGJvdH RsZXMg b2YgYm V
                           lci Bv biB0aG Ugd2Fs bCwgb
                           m 8g bW9y ZSBib3 R0bGVz IG
                           9mIG JlZXIu IEdvIH RvIHRo
                           ZSBzd G 9yZSBh bmQgYn V5IH
                           Nv bWU gbW 9yZSwg OTkgYm 9
                           0dGxl c yBvZi BiZWVy IG9uI
                           H RoZSB3 YWxsLn 0pKSkg CiA
                           gKG lmIC g+ IG4gMC kgKGJv
                           dHRsZX Mg KC0g biAxKS kpKS
                           AK ICAgIA ooYm90 dGxlcy Ax
                             MDAp[/text] {} 0)))           (exit) :)


:-)



m i c h a e l

[cormullion]

It's not very good, so no I haven't thought about it... :) There is, though, a much better and http://www.99-bottles-of-beer.net/language-perl-737.html">wilder Perl version comprising 6 bottles and no discernible program code at all. It also echoes some of my thoughts when looking at Perl code...!