Help for this page

Select Code to Download


  1. or download this
    N:
for my $n (2 .. 99) {
...
  }
  say $n, ' is a prime number';
}
  2. or download this
    for my $n (2 .. 99) {
  for my $x (2 .. $n - 1) {
...
  say $n, ' is a prime number';
 NOT_PRIME:
}
  3. or download this
    for my $n (2 .. 99) {
  my $prime = 1;
...

  print  "a prime number\n";
}
  4. or download this
    for my $n (2 .. 99) {
  for my $x (2 .. $n - 1) {
...
 BREAK:
  print  "a prime number\n";
}