Coprime triplets: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 130:
{{output}}
<lang applescript>{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}</lang>
=={{header|Arturo}}==
<lang rebol>lst: [1 2]
while [true][
n: 3
prev2: lst\[dec dec size lst]
prev1: last lst
while -> any? @[
contains? lst n
1 <> gcd @[n prev2]
1 <> gcd @[n prev1]
] -> n: n + 1
if n >= 50 -> break
'lst ++ n
]
loop split.every:10 lst 'a ->
print map a => [pad to :string & 3]</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|Delphi}}==
{{libheader| System.SysUtils}}
| |||