Average loop length: Difference between revisions
m
→{{header|uBasic/4tH}}
Line 3,218:
c@ = 0
For b@ = 1
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
f@ = 1 : d@ = 0
Do While AND(d@, f@) = 0
|