xiuos/Ubiquitous/Nuttx/apps/examples/bastest/tests/test28.bas

6 lines
74 B
QBasic

def fnfac(n)
if n=1 then fnreturn 1
fnend n*fnfac(n-1)
print fnfac(10)