#Kein Kommentar+2008-05-23 18:16:12--

oder benutze diesen code (hab ich mal vor einer ewigkeit geschrieben)

Code: (dl )

1
2
3
4
5
6
7
8
9

sub prime_number{
        return 0 if (int ($_[0]) != $_[0]);

	foreach my $divider (2..sqrt($_[0])) {
		my $quotient = $_[0] % $DIVIDER;
		return 0 if ($qoutient == 0);
	}
	return 1;
}

edit:// nach dubus eintrag verbessert

return 0 if $_[0] == 1;