Totient function: Difference between revisions

m
→‎{{header|Quackery}}: point to definition of gcd
m (→‎{{header|Quackery}}: point to definition of gcd)
Line 4,428:
=={{header|Quackery}}==
 
<code>gcd</code> is defined at [[Greatest common divisor#Quackery]].
<syntaxhighlight lang="quackery "> [ [ dup while
tuck mod again ]
drop abs ] is gcd ( n n --> n )
 
<syntaxhighlight lang="quackery "> [ [0 swap dup whiletimes
 
[ 0 swap dup times
[ i over gcd
1 = rot + swap ]
1,462

edits