Function A($)
 do
  while $
   $A = $A - -left($,1) * left($,1)
   $ = right($,~)
  loop
  $ = $A
  $A = $ = 1
 until $ < 9
EndFunction

Function HappyNumbers($)
 do
  dim $t
  while $
   $t = $t + 1 * left($,1) * left($,1)
   $ = right($,~)
  loop
  $ = $t
 until $ < 9
 $HappyNumbers = $ = 1
EndFunction

Function A($)

do
  dim $y
  do
    $A=$ mod 10
    $=$/10
    $y=$A*$A+$y
  until $=0
  $=$y
until $<7
$A=$=1

EndFunction
  

Function A($y)

  dim $
  do
    $A=$y mod 10
    $y=$y/10
    $=$A*$A+$
  until $y=0

  $A=$=1
  if $>6
    $A=A($)
EndFunction  

Quote:

---

KiXGolf Score = 0

---

Function A($)

DIM $i

Do
 $a=0
 Do
  $i=$ mod 10
  $i=$i*$i
  $a=$a+$i
  $=$/10
 Until $=0
  $=$a
Until $=4 or $=1

$A=iif($=1,1,0)


EndFunction

Function A($)

 while $
  $a = $ mod 10 * ($ mod 10) + $a  
  $ = $ / 10
 loop

 if $a > 4
  $a = a($a) = 1
 ;endif

EndFunction

KiXtart
KiXtart Version  = 4.51 Beta 1
KiXGolf Script   = kixgolf_happy_numbers.KIX

Computer
OS               = Windows XP Professional
CPU              = Intel(R) Xeon(TM) CPU 3.06GHz
Speed            = 3056 MHz
Memory           = 2046 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Happy Numbers
Processing Start = 2005/08/31 18:12:38.577
Processing End   = 2005/08/31 18:12:38.608
Duration         = 0000/00/00 00:00:00.030
# Tests Run      = 57
# Tests Passed   = 57
# Tests Failed   = 0
Result           = passed
KiXGolf Score    = 76
 
Thank you for participating in KiXtart Golf!

Function A($)

DIM $i

Do
 $a=0
 Do
  $i=$ mod 10
  $a=$a+$i*$i
  $=$/10
 Until $=0
 $=$a
Until $<5

$A=$=1

EndFunction

Function A($)
    Dim $i,$j
    For $i = 1 To 4
        $j=1*substr($,$i,1)
        $a=$a+$j*$j
    Next
    ;$=IIF($>5,A($a),IIf($=1,$,0))
    If $>5
        $=A($a)
    EndIf
    $a=IIf($=1,$,0)
EndFunction  

Function A($)
Do
 Do
  $a=$a + $ mod 10 * ($ mod 10)
  $=$/10
 Until $=0
 $=$a
 $A=$=1
Until $<5
EndFunction

Function A($)
   do
      while $
         $A = $A + $ mod 10*($ mod 10)
         $=$/10
      loop
      $=$A
      $A=$=1
   until $<5
EndFunction

Function A($)
   $A=$=1
   if $>4
      while $
         $A = $A + $ mod 10*($ mod 10)
         $=$/10
      loop
      $A= A($A)
EndFunction