Primzahlalgorithmus - #83650 (Allgemeines zu Perl)

esskar

2004-06-23 02:15

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

für kleine Zahlen kannst du noch folgendes nehmen

Code: (dl )

sub isprim
{
   my $unaer = (1 x shift);

   return ($unaer !~ /^(11+)\1+$/);
}