Freaktreffen München 17/18.4.2004 (Seite 27) (Perl-Community.de)

Ishka

2004-05-15 21:12

User since
2003-08-04
771 Artikel
HausmeisterIn

Jo, ich erweiter mal die Beschreibung der Bilder ein wenig:

Bild1: Aufgenommen am Stachus. Hätten wir die Kamera etwas weiter nach rechts gedreht, könnten wir die Münchner Fußgängerzone sehen.
Bild2: Aufgenommen im Computerraum der Physiker der LMU/München (Universität).
Bild3: Aufgenommen in Alex' Hotel. Nach rechts gehts in die Eingangshalle, nach links in den Konferenzraum, in welchem wir beim Freaktreffen waren.

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

betterworld

2004-05-15 21:18

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Ich bin mir nicht ganz sicher, aber ich denke, dass Bild 1 am 'O' ist (ich habe leider kein Foto von diesem beeindruckenden Denkmal ergooglen koennen). Es muesste kurz hinter dem Fotografen sein und steht am Rande des alten botanischen Gartens, 100m vom Hbf, 500m vom Stachus\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

[E|B]

2004-05-15 21:44

User since
2003-08-08
2561 Artikel
HausmeisterIn

Ja, Bild 1 ist am "O", betterworld hat Recht.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Ishka

2004-05-16 03:34

User since
2003-08-04
771 Artikel
HausmeisterIn

Sehr seltsam.. dann muß ich mir die Gegend um das O nochmal ganz genau anschauen..

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Relais

2004-05-16 03:56

User since
2003-08-06
2261 Artikel
ModeratorIn

Was zum Geier ist das "O"? Den alten Botanischen Garten kenne ich doch, gab es da ein "O" zu übersehen?

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

Ishka

2004-05-16 04:13

User since
2003-08-04
771 Artikel
HausmeisterIn

Das O ist rot und viele Meter hoch. Und wer will kann durchklettern. K.a., seit wann das da steht. Und k.a., warum du es nicht findest, ich finde es auch nie ;)

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

t-musics

2004-05-16 16:26

User since
2004-04-29
1 Artikel
BenutzerIn

Das 1. Bild wurde, wie Ishka richtig gesagt hatte, am Stachus aufgenommen (Da bin ich mir sicher, weil ich es fotografiert habe).

Hier habe ich noch ein Bild vom O hochgeladen (links ist [E|B], rechts betterworld zu sehen).

[E|B]

2004-05-16 17:08

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hey Timo! :D
Erster Post! Super! *gg*
Das ist der Anfang einer großen Perl Karriere. ;)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Crian

2004-05-24 12:05

User since
2003-08-04
5873 Artikel
ModeratorIn

Klasse, das das geklappt hat. Ich hab jetzt endlich die Bilder fertig und unten an Strats Seite angehängt, kann sie aber erst heute Abend hochladen, ich poste dann wieder. Alternativ kann ich die Datei und die Bilder auch zusammenpacken und jemandem schicken, wenn es sehr eilt, aber nach der langen Zeit dürfte das Warten auf heute Abend ja noch zu verschmerzen sein ;)

Tut mir leid, dass es so lange gedauert hat, sollte eigentlich viel schneller gehen...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Crian

2004-05-24 20:55

User since
2003-08-04
5873 Artikel
ModeratorIn

So, die Bilder sind da und ein Link zu meinem in HTML umgewandelten Vortrag findet sich auch.

http://www.perl-community.de/freaktreffen/2004/\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite