Happy numbers: Difference between revisions
→{{header|ALGOL W}}: tweak
(→{{header|ALGOL W}}: handle 0) |
(→{{header|ALGOL W}}: tweak) |
||
Line 478:
integer v, dSum;
v := abs n;
if v not = 0 then begin
while begin
dSum := 0;
while v not = 0 do begin
Line 486 ⟶ 488:
dSum := dSum + ( d * d )
end while_v_ne_0 ;
end
do begin
v := dSum
end while_not_happy_and_not_looping
end if_v_ne_0 ;
dSum = 1
end isHappy ;
|