Product of divisors: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 971: | Line 971: | ||
if __name__ == '__main__': |
if __name__ == '__main__': |
||
main()</lang> |
main()</lang> |
||
=={{header|Quackery}}== |
|||
<code>factors</code> is defined at [[Factors of an integer#Quackery]]. |
|||
<lang Quackery> [ 1 swap factors witheach * ] is product-of-divisors ( n --> n ) |
|||
[] [] |
|||
50 times |
|||
[ i^ 1+ product-of-divisors join ] |
|||
witheach [ number$ nested join ] |
|||
75 wrap$ |
|||
</lang> |
|||
{{out}} |
|||
<pre>1 2 3 8 5 36 7 64 27 100 11 1728 13 196 225 1024 17 5832 19 8000 441 484 23 |
|||
331776 125 676 729 21952 29 810000 31 32768 1089 1156 1225 10077696 37 1444 |
|||
1521 2560000 41 3111696 43 85184 91125 2116 47 254803968 343 125000</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |