Special divisors: Difference between revisions
Content deleted Content added
m →{{header|RPL}}: better loop exit |
Added Quackery. |
||
Line 1,789: | Line 1,789: | ||
FOUND 72 ''SPECIAL DIVISORS'' BELOW 200 |
FOUND 72 ''SPECIAL DIVISORS'' BELOW 200 |
||
</pre> |
</pre> |
||
=={{header|Quackery}}== |
|||
<code>factors</code> is defined at [[Factors of an integer#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> [ 0 |
|||
[ swap 10 /mod |
|||
rot 10 * + |
|||
over 0 = until ] |
|||
nip ] is revnum ( n --> n ) |
|||
[] |
|||
[ 200 times |
|||
[ true |
|||
i^ revnum |
|||
i^ factors |
|||
witheach |
|||
[ revnum |
|||
dip dup mod |
|||
0 != if |
|||
[ dip not |
|||
conclude ] ] |
|||
drop |
|||
if [ i^ join ] ] |
|||
behead drop ] |
|||
[] |
|||
swap witheach |
|||
[ number$ nested join ] |
|||
48 wrap$</syntaxhighlight> |
|||
{{out}} |
|||
<pre>1 2 3 4 5 6 7 8 9 11 13 17 19 22 23 26 27 29 31 |
|||
33 37 39 41 43 44 46 47 53 55 59 61 62 66 67 69 |
|||
71 73 77 79 82 83 86 88 89 93 97 99 101 103 107 |
|||
109 113 121 127 131 137 139 143 149 151 157 163 |
|||
167 169 173 179 181 187 191 193 197 199</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |