k, my best code, the 91 one:
Code:
Function A($)
do
while $
$A = $A - -left($,1) * left($,1)
$ = right($,~)
loop
$ = $A
$A = $ = 1
until $ < 9
EndFunction
and then the last with the proper name and announced 119:
Code:
Function HappyNumbers($)
do
dim $t
while $
$t = $t + 1 * left($,1) * left($,1)
$ = right($,~)
loop
$ = $t
until $ < 9
$HappyNumbers = $ = 1
EndFunction
