Giuga numbers: Difference between revisions
→{{header|Raku}}: Add a Raku example
(Added Go) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
||
Line 117:
66198
</pre>
=={{header|Raku}}==
<lang perl6>my @primes = (3..60).grep: &is-prime;
print 'First four Giuga numbers: ';
put sort flat (2..4).map: -> $c {
@primes.combinations($c).map: {
my $n = [×] 2,|$_;
$n if all .map: { ($n / $_ - 1) %% $_ };
}
}</lang>
{{out}}
<pre>First 4 Giuga numbers: 30 858 1722 66198</pre>
=={{header|Wren}}==
| |||