nuttx-apps/examples/bas/tests/test07.bas
2014-11-07 14:36:02 -06:00

5 lines
76 B
QBasic

10 def fna(x)
20 if x=0 then r=1 else r=x*fna(x-1)
30 =r
40 print fna(7)