107

Code:

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


Can someone please explain how this "$a = a($a) = 1" works?
And why my remmed out IIF causes a stack overflow?
_________________________
-Jim

...the sort of general malaise that only the genius possess and the insane lament.