Function HappyNumbers($)
   Do
      ReDim $z,$a
      Do
         $z=$ mod 10
         $a=$a+$z*$z
         $=$/10
      Until $=0
      $=$a
   Until $=1 | $=4
   $HappyNumbers=$<>4
EndFunction

Function A($)
   Dim $z
   Do
      Do
         $z=$ mod 10
         $a=$a+$z*$z
         $=$/10
      Until $=0
      $=$a $a=0
   Until $=1 | $=4
   $a=$<>4
EndFunction

 
Function A($)
  do
    do 
      $a=$a + ($ mod 10) * ($ mod 10)
      $=$/10
    until $=0
    $=$a
    $a=iif($=1,1,0)
  until $<10 | $a
Endfunction
 

 
Function A($)
  do
    do 
      $a=$ mod 10 * ($ mod 10) + $a
      $=$/10
    until $=0
    $=$a
    $a=iif($=1,1,0)
  until $=4 | $a
Endfunction
 

 Function A($)
  do
    do 
      $a=$ mod 10 * ($ mod 10) + $a
      $=$/10
    until $=0
    $=$a
    $a=$=1
  until $<9
Endfunction

 

Function A($)
    Dim $i,$j
    For $i = 1 To 9
        $j=-substr($,$i,1)
        $a=$a+$j*$j
    Next
    If $>5
       $=A($a)
    EndIf
    $a=$=1
EndFunction  

Quote:

---

============
Test program
============

A test program is provided to help screen entries and to provide the Golf Score.
Any program that passes the test program can be submitted. If you are surprised that your solution passed the test program, please submit it anyway! That will help me identify bugs in the test program.

---