Anonymous user
Coprime triplets: Difference between revisions
→{{header|Nim}}
MaiconSoft (talk | contribs) (Added Delphi example) |
|||
Line 364:
47 20 33 49 26 45
</pre>
=={{header|Nim}}==
<lang Nim>import math, strutils
var list = @[1, 2]
while true:
var n = 3
let prev2 = list[^2]
let prev1 = list[^1]
while n in list or gcd(n, prev2) != 1 or gcd(n, prev1) != 1:
inc n
if n >= 50: break
list.add n
echo list.join(" ")</lang>
{{out}}
<pre>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</pre>
=={{header|Perl}}==
| |||