作者：Philip Potter

规范

P31 (**) Determine whether a given integer number is prime.

示例

> say is_prime 7
1

源代码： P31-rhebus.pl

use v6;

sub is_prime (Int $n) {
    for 2..sqrt $n -> $k {
        return Bool::False if $n %% $k;
    }
    return Bool::True;
}

say "Is $_ prime? ", is_prime($_) ?? 'yes' !! 'no'
    for (|(2 .. 10), 49,137,219,1723);