Heute beschäftigen wir uns mal mit Perl und Projekt Euler (https://projecteuler.net).
Hierbei handelt es sich um eine große Ansammlung von Programmierübungen, welche meiner Meinung nach einen guten Einstieg in die Anwendung von erlernten Kontrollstrukturen und ähnlichem darstellen, ganz gleich in welcher Sprache.
Im Folgenden wollen wir das erste „Problem“ aus der Aufgabenliste in Perl lösen.
Die Aufgabenstellung lautet wie folgt:
If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
Find the sum of all the multiples of 3 or 5 below 1000.
Wir wollen also die Summe aller durch 3 oder 5 teilbaren Zahlen unter 1000 finden.
Eine mögliche Lösung kann man in Perl wie folgt umsetzen:
#übliche Shebang-Zeile
#!/usr/bin/perl
#Compiler-Flags, die übliche Programmierfehler erkennen und aufzeigen
use warnings;
use strict;
#Deklaration eines Zahlenfeldes von 1 bis 999 sowie der Variable, welche wir später für das Errechnen der Summe verwenden
my @zahlenfeld = 1..999;
my $summe = 0;
#Schleifenkopf einer Foreach-Schleife, welche alle Elemente des oben deklarierten Zahlenfeldes durchläuft
foreach(@zahlenfeld){
#If-Condition, welche True liefert, also ausgelöst wird, wenn die aktuell bearbeitete Zahl weder durch 3 noch durch 5 teilbar ist
if($_ % 3 != 0 && $_ % 5 != 0){
#Die aktuelle Zahl als auf "undef" setzen, wonach sie keinen Wert mehr enthält
$_ = undef;
} #Ende IF
} #Ende der Schleife
#Schleifenkopf einer Foreach-Schleife, welche alle Elemente des oben deklarierten Zahlenfeldes durchläuft
foreach(@zahlenfeld){
#If-Condition, welche ausgelöst wird, wenn das aktuelle Element einen Wert enthält, also nicht "undef" ist
if($_){
#Hier wird der Summe der aktuelle Wert hinzugefügt
$summe += $_;
} #Ende IF
} #Ende der Schleife
#Zum Abschluss eine Ausgabe, welche uns das Ergebnis präsentiert
print "Die Summe aller durch 3 oder 5 teilbaren Zahlen unter 1000 lautet:\n$summe\n";
Wir werden uns bald weiteren projecteuler-Aufgaben annehmen und diese in unterschiedlichen Programmier- und Scriptsprachen lösen.
Gerne könnt Ihr eure Variante der Lösung in den Kommentaren posten.
Falls Ihr eine coole Idee habt, welches Programmierproblem wir hier thematisieren könnten, so lasst uns davon wissen.
Wenn Euch der Beitrag gefallen hat, so kommentiert ihn doch, oder lasst uns ein Like auf Facebook oder ein Follow auf Instagram da.
Gerne könnt Ihr auch unseren Newsletter abbonieren, um immer über die neuesten Entwicklungen des Informatik-Guru auf dem Laufenden gehalten zu werden.
