24 lines
403 B
Text
24 lines
403 B
Text
n = 1
|
|
found = 0
|
|
|
|
While found < 8
|
|
If IsHappy(n)
|
|
found += 1
|
|
see string(found) + " : " + string(n) + nl
|
|
ok
|
|
n += 1
|
|
End
|
|
|
|
Func IsHappy n
|
|
cache = []
|
|
While n != 1
|
|
Add(cache,n)
|
|
t = 0
|
|
strn = string(n)
|
|
for e in strn
|
|
t += pow(number(e),2)
|
|
next
|
|
n = t
|
|
If find(cache,n) Return False ok
|
|
End
|
|
Return True
|