Thread RDW #7 - Rätsel der Woche 7 (79 answers)
Opened by Crian at 2004-08-20 15:46

Crian
 2004-08-20 15:46
#49466 #49466
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 RDW #7 - Raetsel der Woche Nummer 7
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


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: Die Goldbachsche Vermutung lautet "Jede natuerliche, gerade Zahl
~~~~~~~~ groesser als vier laesst sich als Summe von zwei Primzahlen dar-
         stellen."

         Beispiele:  6 = 3 + 3
                     8 = 5 + 3
                    10 = 7 + 3
                    12 = 7 + 5

         (Gegenbeispiel fuer ungerade Zahlen: 11)

         Es soll eine Funktion "goldbach" der folgenden Art

             sub goldbach ($) {
                 my ($zahl) = @_;
                 ...
                 return ($p1, $p2);
             }

         geschrieben werden, welche eine natuerliche Zahl entgegennimmt und
         nach zwei Primzahlen sucht, deren Summe die uebergebene Zahl ist.
         Zurueckgegeben wird eine Liste mit den beiden gefundenen Zahlen bzw,
         eine leere Liste.

         Fuer die Golfer: Hier soll sich das Programm so verhalten wie die
         oben beschriebene Funktion, wobei dann "x = y + z" bzw. eine Meldung
         ausgegeben wird, dass sich kein solches Paar finden liess.

         Bei der Golfloesung zaehlt nur die Kuerze in Zeichen (nach der
         Zaehlung von DS), bei den normalen Loesungen zaehlt die Schnelligkeit
         des Algorithmus.

         (Das Thema dieses Raetsels wurde von [E|B] vorgeschlagen.)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread RDW #7 - Rätsel der Woche 7