Primzahlen bis einen festgelegten Wert (Allgemeines zu Perl)

[thread]20403[/thread]

Primzahlen bis einen festgelegten Wert

Tags: perl5 Primzahlen Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+23 replies
guest Dominik

2017-12-13 18:22

Hi kann mir einer erklären wie man Primzahlen bis einen festgelegten Wert ausgibt. Bitte in möglichst simpel bin noch Anfänger.
Weiß nur das es mit 2 for Schleifen geht und Modulu.
Danke im voraus
Last edited: 2017-12-13 18:50:51 +0100 (CET)
- +14 replies
- GwenDragon
  
  2017-12-13 18:52
  
  User since
  2005-01-17
  14741 articles
  Admin1
  
  Schau mal: https://stackoverflow.com/questions/27134252/prime...
  Oder ist das auch zu kompliziert? Wenn ja, einfach deine Lösung hier posten und dann fragen. :)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +13 replies
  - guest Dominik
    
    2017-12-13 21:14
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    print "Bitte angeben bis welche Zahl sie alle Primzahlen möchten!\n"; $grenze=<stdin>; for($a=2;$a<=$grenze;$a++){ for($b=2;$b<$a;$b++){ $wert=$a%$b; if($wert==0 ){ last } else {print "$a\n"}; }}
    
    hab bis jetzt dies, es funktioniert aber gib die Primzahlen zu oft an was kann ich tum um das zu verhindern.
    Last edited: 2017-12-14 09:32:50 +0100 (CET)
    - +12 replies
    - hlubenow
      
      2017-12-14 02:01
      
      User since
      2009-02-22
      875 articles
      BenutzerIn
      
      Guest Dominik
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      print "Bitte angeben bis welche Zahl sie alle Primzahlen möchten!\n"; $grenze=<stdin>; for($a=2;$a<=$grenze;$a++){ for($b=2;$b<$a;$b++){ $wert=$a%$b; if($wert==0 ){ last } else {print "$a\n"}; }}
      
      hab bis jetzt dies, es funktioniert
      
      Nein, tut es nicht. Bitte mach' korrekte Einrückungen (z.B. müssen die schließenden Klammern wieder nach links, so daß die letze Klammer wieder Einrückung 0 hat). Verwende "my " vor Variablen, sowie:
      
      Code (perl): (dl )
      
      1 2
      
      use warnings; use strict;
      
      STDIN ist ein Handle und wird groß geschrieben.
      Die Variable $wert ist überflüssig.
      $grenze sollte ein "chomp()" bekommen.
      Schon in der inneren Schleife einen Wert auszugeben, ist wohl auch nicht so gut. ;)
      Last edited: 2017-12-14 02:09:01 +0100 (CET)
      - +11 replies
      - Raubtier
        
        2017-12-14 08:57
        
        User since
        2012-05-04
        1075 articles
        BenutzerIn
        
        2017-12-14T01:01:59 hlubenow
        Schon in der inneren Schleife einen Wert auszugeben, ist wohl auch nicht so gut. ;)
        
        Genau!
        
        Und daher:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        sub is_prime { my $number = shift; # hier testest du ausschließlich, ob $number prim ist } for (my $a = 2; $a <= $grenze; ++$a) { say "$a ist prim" if is_prime($a); }
        
        Wie gesagt, mach es dir ganz einfach, indem du eigenständige Dinge in kleine Funktionen auslagerst.
        
        +3 replies
        
        Muffi
        
        2017-12-14 09:43
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Und noch ein kleiner Performanceschub:
        
        Code (perl): (dl )
        
        for (my $a = 3; $a <= $grenze; $a+=2) {
        
        1 + 1 = 10
        
        +2 replies
        
        Raubtier
        
        2017-12-14 13:18
        
        User since
        2012-05-04
        1075 articles
        BenutzerIn
        
        Damit lässt du die Primzahl "2" aber aus. Bzw. du müsstest sie spezialbehandeln.
        
        Einen weiteren Performanceschub bekommt man, wenn man in is_prime nur bis zur Wurzel auf Teilbarkeit prüft.
        
        Wenn man eh alle PZ von 1 bis N haben möchte, ist die Sieb-Variante auch sehr gut.
        
        Muffi
        
        2017-12-14 13:30
        
        User since
        2012-07-18
        1465 articles
        BenutzerIn
        
        Ich glaub bei mir kommt langsam das Alter durch ;)
        1 + 1 = 10
        
        +7 replies
        
        Dominik
        
        2017-12-14 18:39
        
        User since
        2017-12-13
        3 articles
        BenutzerIn
        
        hattet Recht hat echt nicht funktioniert.
        Jetzt die richtige Lösung.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        print"bitte eingeben bis zur welchen Zahl sie alle Primzahlen angezeigt haben wollen\n"; $grenze=<STDIN>; chomp($grenze); int($grenze); for($a=3;$a<=$grenze;$a++) { $prim = 1; for($b=2;$b<$a;$b++){ if($a % $b == 0){ $prim = 0; last; } } if($prim == 1) { print $a."\n"; } }
        
        wir haben der Vorlesung <stdin> klein geschrieben gekernt, und nie strict benutzt.
        
        modedit Editiert von GwenDragon: Neu code formatiert
        Last edited: 2017-12-14 19:04:27 +0100 (CET)
        
        GwenDragon
        
        2017-12-14 19:05
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Bitte das nächste mal Code lesbar formatieren, der Beitragseditor hier hat dazu die Buttons Perl oder Code. Siehe auch /bat/poard/markup_help/
        Danke
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        hlubenow
        
        2017-12-16 03:01
        
        User since
        2009-02-22
        875 articles
        BenutzerIn
        
        2017-12-14T17:39:05 Dominik
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        print"bitte eingeben bis zur welchen Zahl sie alle Primzahlen angezeigt haben wollen\n"; $grenze=<STDIN>; chomp($grenze); int($grenze); for($a=3;$a<=$grenze;$a++) { $prim = 1; for($b=2;$b<$a;$b++){ if($a % $b == 0){ $prim = 0; last; } } if($prim == 1) { print $a."\n"; } }
        
        wir haben der Vorlesung <stdin> klein geschrieben gekernt, und nie strict benutzt.
        
        Fang' lieber bei 2 an, sonst kriegst Du die 2 nicht mit.
        int() ist überflüssig, Perl-Variablen sind Skalare.
        'print $a."\n";' geht so oder auch einfach 'print "$a\n";'.
        <stdin> klein schreiben mag sein, finde ich aber nicht im Netz. Zu Handles paßt eher Großschreibung.
        Kein "use strict;" zu benutzen, würde ich aber nicht durchgehen lassen. Frag' da mal bei Deinem Lehrer nach, das geht so nicht.
        
        Linuxer
        
        2017-12-16 12:04
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Zum Thema <STDIN> oder <stdin>:
        
        Ich würde auch immer <STDIN> verwenden; in der perlop fand ich allerdings auch dieses:
        
        https://perldoc.perl.org/perlop.html#I%2fO-Operators
        The filehandles STDIN, STDOUT, and STDERR are predefined. (The filehandles stdin , stdout , and stderr will also work except in packages, where they would be interpreted as local identifiers rather than global.) Additional filehandles may be created with the open() function, amongst others. See perlopentut and open for details on this.
        
        Wenn man das weiß und sich im richtigen Moment daran erinnert, ist doch alles fein. OK, die Erinnerung kommt vielleicht erst nach langer Fehlersuche; aber was soll's? ... Oder man nimmt einfach immer gleich <STDIN> ;-)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +3 replies
        
        Raubtier
        
        2017-12-16 20:19
        
        User since
        2012-05-04
        1075 articles
        BenutzerIn
        
        2017-12-16T02:01:09 hlubenow
        Fang' lieber bei 2 an, sonst kriegst Du die 2 nicht mit.
        
        Da 2 die einzige Primzahl ist, kann man die 2 ausgeben, die Schleife bei 3 anfangen und immer für die nächste zu testende Zahl 2 addieren.
        
        2017-12-16T02:01:09 hlubenow
        int() ist überflüssig, Perl-Variablen sind Skalare.
        
        Was hat das eine mit dem anderen zu tun?
        Hier kommen allerdings tatsächlich nur skalare Größen vor, aber daran ändert int ja nichts!
        Allerdings hat int($grenze); so gar keine Wirkung, weil das Ergebnis hier verworfen wird. Es hätte also hier $x = int($x); heißen sollen!
        Auch deine weitere Aussage, Perl-Variablen seien Skalare, ist offensichtlich falsch, da es ja Arrays und Hashes gibt.
        
        +2 replies
        
        hlubenow
        
        2017-12-17 01:07
        
        User since
        2009-02-22
        875 articles
        BenutzerIn
        
        2017-12-16T19:19:11 Raubtier
        Es hätte also hier $x = int($x); heißen sollen!
        
        Echt, hättest Du die Zeile reingeschrieben?
        
        2017-12-16T19:19:11 Raubtier
        Auch deine weitere Aussage, Perl-Variablen seien Skalare, ist offensichtlich falsch, da es ja Arrays und Hashes gibt.
        
        Ach, Du weißt doch, wie ich das meinte.
        
        Raubtier
        
        2017-12-17 22:35
        
        User since
        2012-05-04
        1075 articles
        BenutzerIn
        
        2017-12-17T00:07:51 hlubenow
        2017-12-16T19:19:11 Raubtier
        Es hätte also hier $x = int($x); heißen sollen!
        
        Echt, hättest Du die Zeile reingeschrieben?
        
        Nein. Aber ich dachte, dass das die Intention des Autors war.
        
        2017-12-17T00:07:51 hlubenow
        2017-12-16T19:19:11 Raubtier
        Auch deine weitere Aussage, Perl-Variablen seien Skalare, ist offensichtlich falsch, da es ja Arrays und Hashes gibt.
        
        Ach, Du weißt doch, wie ich das meinte.
        
        Ehrlich gesagt: nein. Auch nach nochmaligem Lesen nicht. Ich sah und sehe da überhaupt keinen Zusammenhang zu int(). Bitte erleuchte mich!
        Last edited: 2017-12-17 22:40:20 +0100 (CET)
- Raubtier
  
  2017-12-13 20:21
  
  User since
  2012-05-04
  1075 articles
  BenutzerIn
  
  Generell fängst du immer folgendermaßen an: teile dir die Aufgabe solange in kleinere Teilaufgaben, bis die Teilaufgaben unteilbar bzw. klein genug sind, sodass weitere Teilen keinen Sinn mehr ergibt.
  
  Hier also: schreibe eine Funktion, die für (nur) eine Zahl feststellt, ob sie prim ist. Teste diese ausgiebig. Dann rufst du diese Funktion einfach in einer Schleife für alle n von 1 bis N auf und gibt das Resultat aus.
  
  Manchmal kann es allerdings sein, dass es andere, effizientere Wege gibt, wenn man schon vorher weiß, dass man eine Funktion mehrfach für verschiedene Werte aufrufen wird. Für genau diese Aufgabe bietet sich alternativ folgendes an: https://de.wikipedia.org/wiki/Sieb_des_Eratosthene...
  Last edited: 2017-12-13 20:22:22 +0100 (CET)
- lichtkind
  
  2017-12-14 21:07
  
  User since
  2004-03-22
  5697 articles
  ModeratorIn + EditorIn
  
  das ist eine schöne aufgabe die Laune bereitet:
  
  https://de.wikipedia.org/wiki/Sieb_des_Eratosthene...
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- hlubenow
  
  2017-12-17 01:20
  User since
  2009-02-22
  875 articles
  BenutzerIn
  Funktioniert das mathematisch eigentlich auch?
  
  Code (perl): (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
  
  #!/usr/bin/perl use warnings; use strict; my $num = 100; my @primzahlen = (); sub isPrim { my $tocheck = shift; my $isprim = 1; my $i; for $i (@primzahlen) { if ($tocheck % $i == 0) { $isprim = 0; last; } } return $isprim; } for my $i (2 .. $num) { if (isPrim($i)) { push(@primzahlen, $i); print "$i\n"; } }
  
  Wenn ich im Kopf überlege, ob eine Zahl eine Primzahl ist, gucke ich ja erst, ob sie durch 2 teilbar ist, dann durch 3.
  Könnte sein, daß das mit allen Primzahlen zu machen ausreicht.
  Dann muß man deutlich weniger Zahlen prüfen, als wenn man alle, die kleiner sind als die zu prüfende Zahl, als Divisor prüft. Aber man muß die bisherigen Primzahlen speichern.
- +5 replies
- hlubenow
  
  2017-12-17 02:59
  User since
  2009-02-22
  875 articles
  BenutzerIn
  Noch einen: Was ich eigentlich daran spannend finde, ist:
  Angenommen, man prüft, ob 23 durch 2 teilbar ist. Ist es nicht.
  Daraus folgt aber, daß der höchste Teiler, den man prüfen muß, 11 ist.
  Denn 12 * 2 wäre ja schon drüber.
  Wenn man dann auf 3 prüft, reduziert sich der höchstmögliche Teiler auf 7.
  Und so weiter.
  Man muß also immer weniger prüfen, nicht wie der OP macht, ganz bis 22 rauf.
  Ich glaube, das kann man so in Code fassen:
  
  Code (perl): (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
  
  #!/usr/bin/perl use warnings; use strict; my $num = 11000; my @primzahlen = (); sub isPrim { my $tocheck = shift; my $maxlimit = $tocheck; my $isprim = 1; my $i; for $i (@primzahlen) { if ($i > $maxlimit) { last; } if ($tocheck % $i == 0) { $isprim = 0; print "$tocheck\t$i\t$maxlimit\n"; last; } else { $maxlimit = int($tocheck / $i); } } return $isprim; } for my $i (2 .. $num) { if (isPrim($i)) { push(@primzahlen, $i); print "$i\n"; } }
  
  Ist eigentlich ganz cool, denn das denke ich seit Jahrzehnten jedes Mal, wenn es um Primzahlen geht. :)
  - +4 replies
  - Raubtier
    
    2017-12-17 23:36
    
    User since
    2012-05-04
    1075 articles
    BenutzerIn
    
    2017-12-17T01:59:35 hlubenow
    Angenommen, man prüft, ob 23 durch 2 teilbar ist. Ist es nicht.
    Daraus folgt aber, daß der höchste Teiler, den man prüfen muß, 11 ist.
    Denn 12 * 2 wäre ja schon drüber.
    Wenn man dann auf 3 prüft, reduziert sich der höchstmögliche Teiler auf 7.
    Und so weiter.
    
    Genau so ist es. Und wenn man es konsequent weiterdenkt, kommt dabei heraus, dass man auch ganz einfach die Wurzel aus der zu testenden Zahl als obere Grenze verwenden kann (wie ich auch schon u.a. in dieser Nachricht geschrieben hatte ;-) ).
    
    Edit: hmm... wie linke ich auf eine Nachricht in diesem Thread, sodass sie nicht "geschlossen" erscheint?
    Last edited: 2017-12-18 09:21:50 +0100 (CET)
    - +3 replies
    - GwenDragon
      
      2017-12-18 08:39
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      2017-12-17T22:36:51 Raubtier
      hmm... wie linke ich auf eine Nachricht in diesem Thread, sodass sie nicht "geschlossen" erscheint?
      Den Link des Beitrags bekommst du über den "Anker mit dem +" im Beitragskopf.
      https://www.perl-community.de/bat/poard/message/187756
      Die Message-ID ist die Zahl hinten.
      Dann fügst du mit dem Button msg und einem eigenen Text das als Message-Link ein
      [msg=187756]Mein Beitrag #4711[/msg]
      Ergibt dann Mein Beitrag #4711
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Raubtier
        
        2017-12-18 09:25
        
        User since
        2012-05-04
        1075 articles
        BenutzerIn
        
        Danke!
        
        Allerdings ist die Nachricht dann ganz allein auf der Seite, ist also nicht in der Thread-Ansicht. Aber ich denke, das ist so auch ok!
        
        Ich hatte es mit dem linken Anker "Permanent link to message in thread" versucht, aber der "funktioniert nicht", wenn man eine Nachricht schon gelesen hat. (bzw. der zeigt die entspr. Nachricht nicht gesondert an)
        
        GwenDragon
        
        2017-12-18 09:47
        
        User since
        2005-01-17
        14741 articles
        Admin1
        
        Mit einem benutzerdefinierte Link im Beitrag mit der Adresse des linken Ankers blättert der Thread nicht auf, hab ich gerade gesehen. Geht nur, wenn der Link dann in einem neuen Tab geöffnet wird. :(
        Liegt wohl and dem Javascript was Tina zum Anzeigen benutzt.
        Last edited: 2017-12-18 09:54:23 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2017-12-13 18:22.