Count in factors: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: indented DO loops, corrected the adding of ''xx'' for residual factors. -- ~~~~) |
(added Liberty BASIC) |
||
Line 866:
9 : 3 x 3
10 : 2 x 5
</pre>
=={{header|Liberty BASIC}}==
<lang lb>
'see Run BASIC solution
for i = 1000 to 1016
print i;" = "; factorial$(i)
next
wait
function factorial$(num)
if num = 1 then factorial$ = "1"
fct = 2
while fct <= num
if (num mod fct) = 0 then
factorial$ = factorial$ ; x$ ; fct
x$ = " x "
num = num / fct
else
fct = fct + 1
end if
wend
end function </lang>
{{out}}
<pre>
1000 = 2 x 2 x 2 x 5 x 5 x 5
1001 = 7 x 11 x 13
1002 = 2 x 3 x 167
1003 = 17 x 59
1004 = 2 x 2 x 251
1005 = 3 x 5 x 67
1006 = 2 x 503
1007 = 19 x 53
1008 = 2 x 2 x 2 x 2 x 3 x 3 x 7
1009 = 1009
1010 = 2 x 5 x 101
1011 = 3 x 337
1012 = 2 x 2 x 11 x 23
1013 = 1013
1014 = 2 x 3 x 13 x 13
1015 = 5 x 7 x 29
1016 = 2 x 2 x 2 x 127
</pre>
| |||