Totient function: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: point to definition of gcd) |
|||
Line 4,428: | Line 4,428: | ||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||
<code>gcd</code> is defined at [[Greatest common divisor#Quackery]]. |
|||
⚫ | |||
tuck mod again ] |
|||
drop abs ] is gcd ( n n --> n ) |
|||
⚫ | |||
[ 0 swap dup times |
|||
[ i over gcd |
[ i over gcd |
||
1 = rot + swap ] |
1 = rot + swap ] |