Coprime triplets: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
|||
Line 364: | Line 364: | ||
47 20 33 49 26 45 |
47 20 33 49 26 45 |
||
</pre> |
</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}}== |
=={{header|Perl}}== |