EightBall/fact.8b

'
' 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
EightBall v0.5 - With Compile and Virtual Machine 2018-04-28 03:47:22 +00:00			`'`
			`' Recursive factorial function test`
			`'`

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 05:05:43 +00:00			`pr.dec fact(5); pr.nl`
EightBall v0.5 - With Compile and Virtual Machine 2018-04-28 03:47:22 +00:00			`end`

			`sub fact(word val)`
			`pr.msg "fact("; pr.dec val; pr.msg ")"; pr.nl`
			`if val == 0`
			`return 1`
			`else`
v0.62: Fixed function call bug in compiled code - The compiler was not pushing the SENTINEL value to the operator stack and popping it afterwards, so the expression parsing was getting messed up. Now fixed. - Also added targets to the Makefile to allow the emulators to be run directly (make xvic, make x64, make mame). 2018-05-04 04:02:16 +00:00			`return val * fact(val-1) ; ' THIS DOES NOT WORK`
			`' return fact(val-1) * val ; ' BUT THIS DOES!!!`
EightBall v0.5 - With Compile and Virtual Machine 2018-04-28 03:47:22 +00:00			`endif`
			`endsub`