RDW #8 - Raetsel der Woche Nummer 8 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Regeln:  * Bitte nicht vor Ablauf der ersten 72 Stunden ( = drei Tage ) nach ~~~~~~~    Veroeffentlichung Hinweise (Spoiler) oder Loesungen veroeffent-            lichen!          * Wenn diese Zeit abgelaufen ist, werde ich einen Thread mit passen-            dem Titel erstellen, in dem die Loesungen gepostet werden und dis-            kutiert werden koennen.          * Die Loesungen sollten nicht nur gepostet, sondern auch an mich ge-            mailt werden, damit ich sie testen, "bewerten"  und zusammenfassen            kann. Die Adrese dafuer lautet:            crian <---AT---> perl <---MINUS---> community <---DOT---> de            Im Betreff sollte 'RDW' und die Nummer des Raetsels stehen. Hilf-            reich waere neben dem Quellcode der Username im Forum sowie Perl-            und OS-Version, falls Du diese kennst.          * Verstaendnisfragen duerfen in diesem Thread gestellt werden, aber            Tipps und (Teil-) Loesungen sind hier unerwuenscht.          * Ich werde die eingeschickten Programme im Netz zur Verfuegung            stellen, so dass gerade lange Quellcodes nicht (komplett)            gepostet werden muessen.          * Zur Verwendung von Modulen: Ich moechte diese nicht generell aus-            schliessen, aber wenn quasi die komplette Aufgabe durch die Ver-            wendung eines Moduls ersetzt werden kann, ist dies vielleicht nicht            der Sinn der Aufgabe gewesen. Aufgabe: Schreibe einen kleinen Compiler, der ein paar Zeilen Perl in PASM ~~~~~~~~ verwandelt.          Beispiel:              Perl Quelle:              $a = 13;              $b = 10;              $c = $a + $b;              print $c;              PASM Ergebnis:              set I0, 13              set I1, 10              add I2, I0, I1              print I2                    Dieser Vorschlag stammt von sri und Fragen gehen an ihn, da ich          dieses Wochenende nicht in Bielefeld bin =)