Coprime triplets: Difference between revisions
Content added Content deleted
(Added Wren) |
|||
Line 96: | Line 96: | ||
Found 36 coprime triplets |
Found 36 coprime triplets |
||
done... |
done... |
||
</pre> |
|||
=={{header|Wren}}== |
|||
{{trans|Phix}} |
|||
{{libheader|Wren-math}} |
|||
{{libheader|Wren-seq}} |
|||
{{libheader|Wren-fmt}} |
|||
<lang ecmascript>import "/math" for Int |
|||
import "/seq" for Lst |
|||
import "/fmt" for Fmt |
|||
var limit = 50 |
|||
var cpt = [1, 2] |
|||
while (true) { |
|||
var m = 1 |
|||
while (cpt.contains(m) || Int.gcd(m, cpt[-1]) != 1 || Int.gcd(m, cpt[-2]) != 1) { |
|||
m = m + 1 |
|||
} |
|||
if (m >= limit) break |
|||
cpt.add(m) |
|||
} |
|||
System.print("Coprime triplets under 50:") |
|||
for (chunk in Lst.chunks(cpt, 10)) Fmt.print("$2d", chunk) |
|||
System.print("\nFound %(cpt.count) such numbers.")</lang> |
|||
{{out}} |
|||
<pre> |
|||
Coprime triplets under 50: |
|||
1 2 3 5 4 7 9 8 11 13 |
|||
6 17 19 10 21 23 16 15 29 14 |
|||
25 27 22 31 35 12 37 41 18 43 |
|||
47 20 33 49 26 45 |
|||
Found 36 such numbers. |
|||
</pre> |
</pre> |