Average loop length: Difference between revisions

m
Line 3,218:
 
c@ = 0
For b@ = 1 TOTo a@
d@ = FUNC(_Fdiv(FUNC(_Factorial(a@)), a@^b@))
c@ = c@ + FUNC(_Fdiv (d@, FUNC(_Ntof(FUNC(_Factorial(a@-b@))))))
Line 3,229:
 
e@ = 0
For c@ = 1 TOTo b@
f@ = 1 : d@ = 0
Do While AND(d@, f@) = 0
374

edits