20 lines
347 B
Plaintext
20 lines
347 B
Plaintext
for i = 1 to 100
|
|
if happy(i) = 1 then
|
|
cnt = cnt + 1
|
|
PRINT cnt;". ";i;" is a happy number "
|
|
if cnt = 8 then end
|
|
end if
|
|
next i
|
|
|
|
FUNCTION happy(num)
|
|
while count < 50 and happy <> 1
|
|
num$ = str$(num)
|
|
count = count + 1
|
|
happy = 0
|
|
for i = 1 to len(num$)
|
|
happy = happy + val(mid$(num$,i,1)) ^ 2
|
|
next i
|
|
num = happy
|
|
wend
|
|
end function
|