EightBall/fact.8b
2018-04-27 23:47:22 -04:00

18 lines
293 B
Plaintext

'
' Recursive factorial function test
'
pr.dec fact(3); pr.nl
end
sub fact(word val)
pr.msg "fact("; pr.dec val; pr.msg ")"; pr.nl
if val == 0
return 1
else
' return val * fact(val-1) ; ' THIS DOES NOT WORK
return fact(val-1) * val ; ' BUT THIS DOES!!!
endif
endsub