KiXtart
KiXtart Version = 4.50
KiXGolf Script = kixgolf_happy_numbers.kix
Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 13
Speed = 1798 MHz
Memory = 1024 MB
KiXGolf Scoring Engine
Scoring Engine = 3.0.3
KiXtart Golf Score
Tournament = KiXtart Golf: Happy Numbers
Processing Start = 2005/08/31 18:07:55.518
Processing End = 2005/08/31 18:07:55.548
Duration = 0000/00/00 00:00:00.030
# Tests Run = 57
# Tests Passed = 57
# Tests Failed = 0
Result = passed
KiXGolf Score = 84
Thank you for participating in KiXtart Golf!
Code:
Function A($)
do
dim $y
do
$A=$ mod 10
$=$/10
$y=$A*$A+$y
until $=0
$=$y
until $<7
$A=$=1
EndFunction
KiXtart
KiXtart Version = 4.50
KiXGolf Script = kixgolf_happy_numbers.kix
Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 13
Speed = 1798 MHz
Memory = 1024 MB
KiXGolf Scoring Engine
Scoring Engine = 3.0.3
KiXtart Golf Score
Tournament = KiXtart Golf: Happy Numbers
Processing Start = 2005/08/31 18:12:32.727
Processing End = 2005/08/31 18:12:32.767
Duration = 0000/00/00 00:00:00.040
# Tests Run = 57
# Tests Passed = 57
# Tests Failed = 0
Result = passed
KiXGolf Score = 84
Thank you for participating in KiXtart Golf!
Code:
Function A($y)
dim $
do
$A=$y mod 10
$y=$y/10
$=$A*$A+$
until $y=0
$A=$=1
if $>6
$A=A($)
EndFunction
Edited by Howard Bullock (2005-09-01 12:30 AM)
