Anonymous user
Happy numbers: Difference between revisions
→optimized, horizontal list: replaced version to include optimization. -- ~~~~
(→optimized, horizontal list: replaced version to include optimization. -- ~~~~) |
|||
Line 2,853:
if L=='' | L==',' then L=8 /*Not specified? Set L to default*/
if H=='' | H==',' then do; H=L; L=1; end /*use a range for the showing.*/
#.0=0; #.1=1; #.2=4; #.3=9; #.4=16; #.5=25; #.6=36; #.7=49; #.8=64; #.9=81
haps=0 /*count of happy numbers so far. */
@.=0; !.=0 /*sparse array: happy&unhappy #s.*/
Line 2,864 ⟶ 2,865:
s=0 /*prepare to add squares of digs.*/
do j=1 for length(q) /*sum the squares of the digits. */
s=s+#._ /*add the square of a digit. */
end /*j*/
| |||