Coprime triplets: Difference between revisions
Added Quackery.
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
(Added Quackery.) |
||
Line 914:
Number of elements in coprime triplets = 36</pre>
=={{header|Quackery}}==
<code>coprime</code> is defined at [[Coprimes#Quackery]].
<syntaxhighlight lang="Quackery"> [ over find swap found ] is used ( [ x --> b )
' [ 1 2 ] 3
[ dup 50 < while
over -1 peek
over coprime not iff 1+ again
over -2 peek
over coprime not iff 1+ again
2dup used iff 1+ again
join 3 again ]
drop
echo</syntaxhighlight>
{{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|Raku}}==
| |||