31 lines
474 B
Text
31 lines
474 B
Text
function happy(x)
|
|
set y = x
|
|
set lasty = 0
|
|
set found = " "
|
|
while y != 1 and not (found regex "\s".y."\s")
|
|
set found = found . y . " "
|
|
set m = 0
|
|
while y > 0
|
|
set digit = y mod 10
|
|
set m = m + digit * digit
|
|
set y = (y - digit) / 10
|
|
end while
|
|
set y = format(m,"%1d")
|
|
end while
|
|
set found = found . y . " "
|
|
if y = 1
|
|
set result = 1
|
|
else
|
|
set result = 0
|
|
end if
|
|
end function
|
|
|
|
set c = 0
|
|
set i = 1
|
|
while c < 8 and i < 100
|
|
if happy(i)
|
|
echo i
|
|
set c = c + 1
|
|
end if
|
|
set i = i + 1
|
|
end while
|