Product of divisors: Difference between revisions
Content added Content deleted
(Added Quackery.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 165: | Line 165: | ||
41 3111696 43 85184 91125 |
41 3111696 43 85184 91125 |
||
2116 47 254803968 343 125000</pre> |
2116 47 254803968 343 125000</pre> |
||
=={{header|Arturo}}== |
|||
<lang rebol>loop split.every:5 to [:string] map 1..50 => [product factors] 'line [ |
|||
print map line 'i -> pad i 10 |
|||
]</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|AWK}}== |
=={{header|AWK}}== |