Hi ,
I asked this question on linkedin but I think the best place to get answers
is here ...
I have a perl cod that check a range of numbers and print for each number
if it's prime number or not prime number.
So why its not working properly ? ...
#!C:\strawberry\perl\bin\perl
use strict;
use warnings;
&main;
sub main
{
&Check_Prime_Number();
}
sub Check_Prime_Number
{
my $Number;
my @Numbers=(3..6);
for (@Numbers)
{
&CheckIfprime($_)
}
sub CheckIfprime
{
my $num=shift;
my $value=1;
my $I;
my $remainder;
our @div_array;
for( $I = 2 ; $I<$num ;$I++)
{
$remainder = $num % $I;
# print "remainder = $remainder\n";
if($remainder == 0){
print " - $num is NOT a prime number -\n";
#exit;
}
else
{
push @div_array , $remainder;
}
}
if ($value !~~ @div_array) # if value is not in the array
{
print " - $num is A prime number -\n";
}
}
}
---------------------------
the output:
- 3 is A prime number -
- 4 is NOT a prime number -
- 4 is A prime number -
- 5 is A prime number -
- 6 is NOT a prime number -
- 6 is NOT a prime number -
- 6 is A prime number -
--
<http://il.linkedin.com/pub/ilan-shlossman/23/18/a97>
*Ilan Shlossman+ 972-(0)54-5216764*
<http://www.linkedin.com/in/ilanshlossman>
