Rätsel der Woche 2007/3: viel Spaß beim Rätseln (Seite 2) (Allgemeines zu Perl)

[thread]8753[/thread]

Rätsel der Woche 2007/3: viel Spaß beim Rätseln (Seite 2)

Leser: 2

betterworld

2007-02-14 15:42

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=pq,14.02.2007, 10:16][quote=betterworld,14.02.2007, 02:43]73 fuer die ganze Datei incl. "\n"

0 muss nicht gehen, oder?[/quote]
was meinst du mit "0 muss nicht gehen"?
und hast du jetzt nur stringifizierung oder mehr?[/quote]
Ja, ich habe nur Stringifizierung, hast Du mehr?

Mit "0 muss nicht gehen" meine ich das hier:

Code: (dl )

$x = 0;
my $d = Delay::new { $x };
print $d; # prints 0
$x = 7;
print $d; # prints 7 (sollte 0 sein)

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

2007-02-14 17:12

User since
2003-08-04
12209 Artikel
Admin1

ich hab nur stringifizierung, und 0 geht bei mir (siehe oben, ||= vs. defined, hab das aber anders
lösen können)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

betterworld

2007-02-14 19:03

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=pq,14.02.2007, 16:12]siehe oben, ||= vs. defined,[/quote]
Ah ja, ich wusste doch, dass ich Dich schon irgendwo darueber berichten gelesen habe.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

betterworld

2007-02-14 21:11

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

OK, ich habe eine Loesung mit 73 Zeichen gefunden, wo auch "0 geht". pq und ich haben im IRC schon unsere Loesungen ausgetauscht, womit der Golfwettbewerb fuer diese Runde wohl beendet ist.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

RPerl

2007-02-14 21:22

User since
2006-11-26
384 Artikel
BenutzerIn

user image

lol, das ist doch verdammt schwer :p :p :p

Ishka

2007-02-20 03:11

User since
2003-08-04
771 Artikel
HausmeisterIn

Ich hab mal wieder zu lange gebraucht, aber es jetzt doch geschafft, die insgesamt 6 abgegebenen Lösungen ins Wiki:

Wiki zu stellen.

Jetzt stell ich aber gleich mal die nächste Aufgabe online.

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}

View all threads created 2007-02-13 00:14.