PERL   28

Exo3

Guest on 17th May 2022 01:23:58 AM

  1. #! /usr/local/bin/perl
  2.  
  3. sub Crible {
  4.  
  5.   my $v = shift;
  6.  
  7.   #liste intiale
  8.   my @nombre = (2 .. $v);
  9.  
  10.   #liste des nombres premiers
  11.   my @premier = ();
  12.  
  13.   #ttque @nombre n'est pas vide
  14.   while (scalar(@nombre) != 0) {
  15.     my $prem = shift(@nombre);
  16.  
  17.     push (@premier, $prem);
  18.  
  19.     @nombre = grep {($_ % $prem) != 0}  @nombre;
  20.   }
  21. return @premier;
  22. }
  23.  
  24. my $nombre = $ARGV[0];
  25. my @premier = Crible($nombre);
  26. foreach my $prem (@premier) {
  27. print (" ", $prem);
  28.  
  29. }

Raw Paste

Login or Register to edit or fork this paste. It's free.