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-->

ich hab das mal gegolft, bin bei 87 zeichen...

edit: die '1; ' am ende habe ich nicht mitgezählt\n\n

<!--EDIT|pq|1171365234-->

[quote=pq,13.02.2007, 12:12]ich hab das mal gegolft, bin bei 87 zeichen...

edit: die '1; ' am ende habe ich nicht mitgezählt[/quote]
ggf, kann der '; ' ja weg

gut, dann 89 zeichen mit letzten zeilenumbruch =)

edit: mittlerweile doch 87\n\n

<!--EDIT|pq|1171373975-->

Das halte ich irgendwie für unrealistisch kurz. Alleine die absolut notwendigen Codeteile um nicht die Funktionalität, sondern nur das Interface, wie es die Aufgabe fordert, bereitzustellen brauchen etwa 90 Zeichen -- es sei denn man beschränkt sich darauf, dass die erzeugten "Skalare" nur numerische Werte haben können, oder ähnliches.

ok, ich hab mich etwas vertan - wenn das ergebnis des ausdrucks 0 ist,
wird er nochmals evaluiert. ein klassisches ||= vs. defined-problem.
dadurch werdens ein paar zeichen mehr. ansonsten habe ich
vielleicht auch die aufgabe falsch verstanden. für
die golf-lösung jedenfalls zähle ich nur das modul selbst

[quote=pq,13.02.2007, 16:42][...] ansonsten habe ich vielleicht auch die aufgabe falsch verstanden. [...][/quote]
Glaube ich nicht. Wahrscheinlich bin ich bloß unwissend und staune beim Betrachten der Lösung, wieviel Quelltext man magisch einsparen kann ;-) Beim Golfen bin ich irgendwie nicht besonders gut...

ich hab jetzt 74 zeichen für das modul.

edit: core-module sind hier hoffentlich nicht ausgeschlossen

edit: ich gehe davon aus, dass hier die evaluation nur bei einer stringifizierung
passieren soll.\n\n

<!--EDIT|pq|1171397567-->

73 fuer die ganze Datei incl. "\n"

0 muss nicht gehen, oder?\n\n

<!--EDIT|betterworld|1171417522-->

[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?