Average loop length: Difference between revisions

Content added Content deleted
Line 3,218: Line 3,218:


c@ = 0
c@ = 0
For b@ = 1 TO a@
For b@ = 1 To a@
d@ = FUNC(_Fdiv(FUNC(_Factorial(a@)), a@^b@))
d@ = FUNC(_Fdiv(FUNC(_Factorial(a@)), a@^b@))
c@ = c@ + FUNC(_Fdiv (d@, FUNC(_Ntof(FUNC(_Factorial(a@-b@))))))
c@ = c@ + FUNC(_Fdiv (d@, FUNC(_Ntof(FUNC(_Factorial(a@-b@))))))
Line 3,229: Line 3,229:


e@ = 0
e@ = 0
For c@ = 1 TO b@
For c@ = 1 To b@
f@ = 1 : d@ = 0
f@ = 1 : d@ = 0
Do While AND(d@, f@) = 0
Do While AND(d@, f@) = 0