in reply to Re: Prime Number Finderin thread Prime Number Finder
my $number = shift;
my $sqrt = sqrt $number;
my $d = 2;
return 0 if ( $number % $d == 0 );
return 1 if ( $d > $sqrt );
Always on Perls where it is no longer experimental
Sometimes, such as when I deem the syntax to be clearer with it than without
Only if the existing code base uses it or a standards doc mandates it
Never heard of it
I'm still supporting 5.6.0, you insensitive clod!
Results (95 votes). Check out past polls.