Factors of an integer: Difference between revisions
Content added Content deleted
(→optimized version: further optimized the code using memoization.) |
m (→optimized version: elided a blank line.) |
||
Line 5,273:
do k=2 until sq.k>=HI; sq.k= k*k /*memoization for squares.*/
end /*k*/
do n=LO to HI by inc; $= divs(n); #= words($) /*get list of divs; # divs*/
if $==! then do; #= !; $= ' (infinite)'; end /*handle case for infinity*/
| |||