4 lines
104 B
Raku
4 lines
104 B
Raku
sub isprime {
|
|
('1' x shift) !~ /^1?$|^(11+?)\1+$/
|
|
}
|
|
print join(', ', grep(isprime($_), 0..39)), "\n";
|