Coprime triplets: Difference between revisions
Added Wren
(Added Wren) |
|||
Line 96:
Found 36 coprime triplets
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>
| |||