From 0d32b01fde73224469b8bb5971ebdaacd9bfa32c Mon Sep 17 00:00:00 2001 From: AidenRushbrooke <72034940+AidenRushbrooke@users.noreply.github.com> Date: Wed, 8 Dec 2021 04:37:18 +0000 Subject: Fixed bug with function return and added recursive example --- src/examples/recursive.ft | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 src/examples/recursive.ft (limited to 'src/examples/recursive.ft') diff --git a/src/examples/recursive.ft b/src/examples/recursive.ft new file mode 100644 index 0000000..d6f7a69 --- /dev/null +++ b/src/examples/recursive.ft @@ -0,0 +1,14 @@ +program recursive +int::value +int::final +value=5 +final=factorial(value) +print*,"The factorial of ",value," is ",final +end program recursive + +function int factorial(int x) +if x==1 then +return 1 +end if +return x*factorial(x-1) +end \ No newline at end of file -- cgit v1.2.3