RDW #7 - Rätsel der Woche 7 (Seite 4) (Allgemeines zu Perl)

Ishka

2004-08-22 17:19

User since
2003-08-04
771 Artikel
HausmeisterIn

[quote=DS,22.08.2004, 13:25]

[E|B
,22.08.2004, 13:18]Schummelt ihr?? Das ist ja nicht mehr menschlich. :D

Natürlich schummeln wir... :p aber ich könnte noch viel mehr schummeln... wenn sich jemand wirklich nur für die beiden Primzahlen interessiert dann könnte ich die auch mit 57 Zeichen liefern... aber das ist dann schon ziemlich böse... :cool:[/quote]
welche ausgabe hast du bei 57 Zeichen?

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}

DS

2004-08-22 18:06

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

[quote=Ishka,22.08.2004, 15:19]welche ausgabe hast du bei 57 Zeichen?[/quote]
Das kann ich jetzt leider noch ned sagen, es wäre absolut offensichtlich wie diese "Ausgabe" entsteht...

Aber ich kann sagen, daß die "Ausgabe" bei 58 Zeichen "a+b\n" ist...

Dummerweise kann ich jetzt nicht mal sagen warum ich Ausgabe in Anführungszeichen schreibe... ;)

Ich muss Crian mal eine PM schreiben, ob sowas erlaubt ist, was ich geplant habe...

Ishka

2004-08-22 18:16

User since
2003-08-04
771 Artikel
HausmeisterIn

also die Methode, bei der ich 61 Zeichen hab - ich denke nicht, daß sie in der Form erlaubt ist, schicke aber trotzdem meine 61, wie auch meine 63-Zeichen-Lösung ein, kann Crian dann entscheiden, wenn er die Lösungen hat.

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}

[E|B]

2004-08-22 18:43

User since
2003-08-08
2561 Artikel
HausmeisterIn

Auf die bin ich mal gespannt.
Heute läuft das Rätsel aus. Also nix wie weg mit der Lösung. ;)

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]

steve

2004-08-22 19:22

User since
2004-03-04
52 Artikel
BenutzerIn
[default_avatar]

achja, wie kommt ihr nur auf 57 Zeichen? Da komm ich nichtma ohne Ausgabe hin ... Aber ich hab ne neue Version, schick ich die noch ein hmmm

steve

DS

2004-08-22 19:34

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

[quote=steve,22.08.2004, 17:22]achja, wie kommt ihr nur auf 57 Zeichen? Da komm ich nichtma ohne Ausgabe hin ... Aber ich hab ne neue Version, schick ich die noch ein hmmm

steve[/quote]
Ich bin mir eigentlich ziemlich sicher, daß die mit 57 eh nicht zählt...

Hab' meine Lösungen grad weggeschickt... 2^3 Lösungen für ARGV/STDIN, Ausgabe komplett/nur Zahlen und *beep* ja/nein...

Ich bin ja echt gespannt...

[E|B]

2004-08-22 19:54

User since
2003-08-08
2561 Artikel
HausmeisterIn

Also mathematische Rätsel machen viel mehr Spaß.
Wie sehen das die anderen?

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]

steve

2004-08-22 20:02

User since
2004-03-04
52 Artikel
BenutzerIn
[default_avatar]

72 Stunden sind doch imho erst morgen um, oder?

Jepp das macht irgendwie Spaß :)

steve

DS

2004-08-22 20:15

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

[E|B
,22.08.2004, 17:54]Also mathematische Rätsel machen viel mehr Spaß.
Wie sehen das die anderen?

Naja, man kann hier einfach viel besser golfen, viel mehr an der Lösung feilen... immer der große Schock, wenn der erste schon eine 75 Zeichen Lösung hat während man selbst noch nicht einmal angefangen hat, und man auch 1h später noch bei weit über 100 Zeichen ist... dann das Quetschen, komplettes Durcheinanderwerfen, etc. der Lösung... das macht schon Spass, jep... :) :) :)

steve

2004-08-22 20:40

User since
2004-03-04
52 Artikel
BenutzerIn
[default_avatar]

noch ne Frage: Dürfen mehrere Lösungen ausgeben werden?

steve\n\n