99 bottles of beer (Sonstige Beiträge (auch Spaß und Sinnloses))

[thread]2123[/thread]

99 bottles of beer

vayu

2007-07-16 10:16

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

sehr lustig :) und auch interessant

http://99-bottles-of-beer.net/

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

sid burn

2007-07-16 14:06

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Während das Perl beispiel mal wieder total unlesbar ist, besticht die Python Variante mit absoluter Lesbarkeit: (Das ganze muss glaube ich auf einer Zeile stehen damit es Funktioniert)

Code: (dl )

print ''.join('%(pre)s%(num)s %(bot)s on the wall, %(nul)s %(bot)s,\n%(tak)s\n' % (lambda c,b:
{'pre':['','%s %s on the wall.\n\n' % (c,b)][abs(cmp(c,'Ninety-nine'))],
 'num':c, 'nul':c.lower(), 'bot':b,
 'tak':['Go to the store and buy some more... Ninety-nine %s.' % b,'Take one down, pass it
around,'][abs(cmp(x,0))]
})((lambda x,o: [(['Twenty','Thirty','Forty','Fifty',
'Sixty','Seventy','Eighty','Ninety'][x/10-2]+'-'+o.lower()).replace('-no more',''),
o][int(x<20)])(x, ['No more','One','Two',
'Three','Four','Five','Six','Seven','Eight',
'Nine','Ten','Eleven','Twelve','Thirteen','Fourteen',
'Fifteen','Sixteen','Seventeen','Eighteen','Nineteen'][[x,x%10][int(x>=20)]]),'bottle%s of beer' %
['','s'][abs(cmp(x,1))])
for x in xrange(99,-1,-1))

Da sollte Perl sich mal etwas abkucken! ;)

Ansonsten ist auch soetwas hier Lustig:
http://www.roesler-ac.de/wolfram/hello.htm
http://www.kernelthread.com/hanoi/\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

Relais

2007-07-16 14:15

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=sid burn,16.07.2007, 12:06]besticht die Python Variante mit absoluter Lesbarkeit:[/quote]
Wer hat denn Dich bestochen? ;-)

Ich finde das schwer lesbar und voller unnötiger Wiederholung.
Zugegeben, die findet im inneren der Daten statt, aber dennoch.

Ich finde dagegen mehrere der Perl-Versionen sehr schön lesbar...
Aber vermutlich habe ich nur Deinen Smily überlesen =)

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

sid burn

2007-07-16 14:30

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

[quote=Relais,16.July.2007, 12:15][quote=sid burn,16.07.2007, 12:06]besticht die Python Variante mit absoluter Lesbarkeit:[/quote]
Wer hat denn Dich bestochen? ;-)

Ich finde das schwer lesbar und voller unnötiger Wiederholung.
Zugegeben, die findet im inneren der Daten statt, aber dennoch.

Ich finde dagegen mehrere der Perl-Versionen sehr schön lesbar...
Aber vermutlich habe ich nur Deinen Smily überlesen =)[/quote]
Mich hat keiner bestochen, ich wurde nur erleuchtet.
Ansonsten benötigt Ironie keine Smileys.

--------------------------------------------------------

Das sind übrigens meine Zwei Lösungen: Einmal eine etwas längere, und einmal etwas abgekürzt:

Code: (dl )

use LWP::Simple;

my $content  = get("http://99-bottles-of-beer.net/lyrics.html");
my @songtext = $content =~ m{<p>(.*?)<br/?>(.*?)</p>}gs;
print "$_\n" for @songtext;

Code: (dl )

1
2

use LWP::Simple;
print "$_\n" for ( get("http://99-bottles-of-beer.net/lyrics.html") =~ m{<p>(.*?)<br/?>(.*?)</p>}gs )

\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

vayu

2007-07-16 14:41

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

lol :P

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

moritz

2007-07-16 15:07

User since
2007-05-11
923 Artikel
HausmeisterIn

Nett. Die Parrot-Variante funktioniert leider nicht mehr, wer sich motiviert fühlt könnte eine ein PIR schreiben und hochladen.
Ich hab schon eine ganz langweilige Perl6-Version, die mit pugs auch läuft, ich würde sie aber gerne vorher mit kp6 zum laufen bringen bevor ich sie hochlade ;)

Perl 6 - Perls Zukunft

Relais

2007-07-16 16:08

User since
2003-08-06
2246 Artikel
ModeratorIn

[quote=sid burn,16.07.2007, 12:30]Ansonsten benötigt Ironie keine Smileys.[/quote]
Da irrst Du Dich wohl.

(siehe Netiquette. Weder hat die Schläue der Netzbewohner seitdem das geschrieben wurde zugenommen, noch die Möglichkeit aus Ascii-Zeichen auf den Klang einer Stimme zu schließen.)

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

sid burn

2007-07-16 16:18

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

[quote=Relais,16.July.2007, 14:08][quote=sid burn,16.07.2007, 12:30]Ansonsten benötigt Ironie keine Smileys.[/quote]
Da irrst Du Dich wohl.

(siehe Netiquette. Weder hat die Schläue der Netzbewohner seitdem das geschrieben wurde zugenommen, noch die Möglichkeit aus Ascii-Zeichen auf den Klang einer Stimme zu schließen.)[/quote]
;)
Grundsätzlich hast du recht. Aber bei so einer extremen Übertreibung gehört es dazu die Smileys wegzulassen, damit es eben ausschaut als wäre es nicht Ironisch gemeint.

Und auch wenn ich Sprechen würde. Würde ich versuchen das so kalt und Trocken herüber zu bringen so das es sich eben nicht Ironisch anhört. ;)

Den das hat den Sinn das man zuerst annimmt das ich es ernst meine. Wenn man sich den Code anschaut kann das ganze aber irgendwie nicht ernst gemeint sein. Das ganze Symbolisiert dann noch den Character von Pythonianern. Denn wahrscheinlich würden sie kühl und locker sagen, dass es für jeden Mensch lesbar ist. (Wahrscheinlich sogar ohne Python zu Lernen). Wenn ich da Smileys setze mache ich alles kaputt. ;)

Bzw. nachher schrieb ich ja "Da sollte sich...;)" ich denke das war schon eher ein Hinweis darauf das ich es nicht ernst gemeint habe.\n\n

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de

View all threads created 2007-07-16 10:16.