Select Code to Download

sub isprime($) {
    my $num = $_[1];
...
    }
    return $primer;
}

sub isprime {$_[0] =~ /^[2357]$/}

if (($n != 1) && ($n != 0)) {
   if (isprime($n)) {
...
      $comp += $n;
   }
}

if ($n =~ /^[2357]$/) {
    $prime += $n;
...
elsif ($n !~ /^[01]$/) {
    $comp += $n;
}

$text.length