EightBall/fact.8b
Bobbi Webber-Manners e02674d8da
v0.66: Refactoring, added const support
- New keyword `const`
- `const` values are supported as array dimensions and variable.array initializers
- Refactored code and saved several 100 bytes
- Compiler generates better VM code for array allocation
2018-05-11 01:05:43 -04:00

18 lines
293 B
Plaintext

'
' Recursive factorial function test
'
pr.dec fact(5); 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