Coprime triplets: Difference between revisions
→{{header|Quackery}}: shortened code
(Added Quackery.) |
(→{{header|Quackery}}: shortened code) |
||
Line 919:
<code>coprime</code> is defined at [[Coprimes#Quackery]].
<syntaxhighlight lang="Quackery"> [ over find swap found not ] is
' [ 1 2 ]
[ 1+ dup 50 < while
over -1 peek
over coprime
over -2 peek
over coprime
2dup
join
drop
echo
</syntaxhighlight>
{{out}}
| |||