Opened by Ishka at 2007-02-13 00:14
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
Momentan habe ich 12 Aufgaben vorrätig. Vorschläge für neue Rätsel nehme ich immer gerne an (bitte als Mail und als Betreff für Vorschläge rdw-vorschlag enthalten lassen (in klein).
RDW 2007/2 - Raetsel der Woche Nummer 3 des Jahres 2007
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Regeln:
~~~~~~~
* Bitte nicht vor Ablauf der ersten 72 Stunden (= drei Tage)
nach Veröffentlichung Hinweise, Spoiler, Lösungen oder
Lösungsteile posten!
* Verständnisfragen dürfen selbstverständlich auch vor
Ablauf der drei Tage in diesem Thread gestellt
werden. Diskussionen über Lösungsansätze gehören aber
nicht hierher.
* Die Verwendung von Modulen ist generell erlaubt, wird jedoch
das ganze Problem von einem Modul erschlagen, so macht das
die Lösung langweilig -- und das ist nicht unbedingt der
Sinn dieser Rätsel.
* Erst wenn die drei Tage abgelaufen sind, werden Lösungen in
das
Wiki gestellt und hier verlinkt.
* Sobald die Lösungen veröffentlicht wurden darf hier
natürlich über sie diskutiert werden.
* Die Lösungen sollten nicht unbedingt von jedem Einzelnen
gepostet, sondern vor allem per E-Mail an mich geschickt
werden, damit ich sie testen, "bewerten" und zusammenfassen
kann. Die Adrese dafür lautet:
stephan <---Punkt---> barth <---At---> gmx <---Punkt---> de
Im Betreff sollte 'RDW' (also wirklich RDW und nicht Rätsel der
Woche oder andere Ausformulierungen) und die Nummer des Rätsels
stehen. Hilfreich wäre neben dem Quelltext der Benutzername
im Forum sowie Perl- und OS-Version (siehe auch perl -v).
Die Aufgabe:
~~~~~~~~~~~~
Schreibe ein Modul (mit dem Namen Delay), welches die "faule
Auswertung" / "lazy evaluation" von Ausdruecken ermoeglicht. Es
sollte eine Schnittstelle bereitgestellt werden, mit der man Skalare
erzeugen kann, deren Wert erst bei Bedarf berechnet wird, das
allerdings nur genau ein mal.
Beispiel:
~~~~~~~~~
#!/usr/bin/perl -l
use strict;
use warnings;
use Delay;
my $x = 42;
my $y = Delay::new { 5 * $x };
$x = 23;
print $y; # Gibt 115 aus, nicht 210, denn der Wert von $y wird
# erst hier berechnet.
$x = 1;
print $y; # Gibt wieder 115 aus, nicht 5, denn der Wert von $y
# wurde bereits bestimmt.\n\n
<!--EDIT|Ishka|1171320039-->
RDW 2007/2 - Raetsel der Woche Nummer 3 des Jahres 2007
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Regeln:
~~~~~~~
* Bitte nicht vor Ablauf der ersten 72 Stunden (= drei Tage)
nach Veröffentlichung Hinweise, Spoiler, Lösungen oder
Lösungsteile posten!
* Verständnisfragen dürfen selbstverständlich auch vor
Ablauf der drei Tage in diesem Thread gestellt
werden. Diskussionen über Lösungsansätze gehören aber
nicht hierher.
* Die Verwendung von Modulen ist generell erlaubt, wird jedoch
das ganze Problem von einem Modul erschlagen, so macht das
die Lösung langweilig -- und das ist nicht unbedingt der
Sinn dieser Rätsel.
* Erst wenn die drei Tage abgelaufen sind, werden Lösungen in
das
Wiki gestellt und hier verlinkt.* Sobald die Lösungen veröffentlicht wurden darf hier
natürlich über sie diskutiert werden.
* Die Lösungen sollten nicht unbedingt von jedem Einzelnen
gepostet, sondern vor allem per E-Mail an mich geschickt
werden, damit ich sie testen, "bewerten" und zusammenfassen
kann. Die Adrese dafür lautet:
stephan <---Punkt---> barth <---At---> gmx <---Punkt---> de
Im Betreff sollte 'RDW' (also wirklich RDW und nicht Rätsel der
Woche oder andere Ausformulierungen) und die Nummer des Rätsels
stehen. Hilfreich wäre neben dem Quelltext der Benutzername
im Forum sowie Perl- und OS-Version (siehe auch perl -v).
Die Aufgabe:
~~~~~~~~~~~~
Schreibe ein Modul (mit dem Namen Delay), welches die "faule
Auswertung" / "lazy evaluation" von Ausdruecken ermoeglicht. Es
sollte eine Schnittstelle bereitgestellt werden, mit der man Skalare
erzeugen kann, deren Wert erst bei Bedarf berechnet wird, das
allerdings nur genau ein mal.
Beispiel:
~~~~~~~~~
#!/usr/bin/perl -l
use strict;
use warnings;
use Delay;
my $x = 42;
my $y = Delay::new { 5 * $x };
$x = 23;
print $y; # Gibt 115 aus, nicht 210, denn der Wert von $y wird
# erst hier berechnet.
$x = 1;
print $y; # Gibt wieder 115 aus, nicht 5, denn der Wert von $y
# wurde bereits bestimmt.\n\n
<!--EDIT|Ishka|1171320039-->
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}
"":"\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}