mirror of
https://github.com/bobbimanners/EightBall.git
synced 2024-11-18 18:06:05 +00:00
18 lines
293 B
Plaintext
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
|
||
|
|
|