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: | Line 5,273: | ||
do k=2 until sq.k>=HI; sq.k= k*k /*memoization for squares.*/ |
do k=2 until sq.k>=HI; sq.k= k*k /*memoization for squares.*/ |
||
end /*k*/ |
end /*k*/ |
||
do n=LO to HI by inc; $= divs(n); #= words($) /*get list of divs; # divs*/ |
do n=LO to HI by inc; $= divs(n); #= words($) /*get list of divs; # divs*/ |
||
if $==! then do; #= !; $= ' (infinite)'; end /*handle case for infinity*/ |
if $==! then do; #= !; $= ' (infinite)'; end /*handle case for infinity*/ |