From 13009c9d92756ecbf38d2ac9b9e85a59c92fc8b9 Mon Sep 17 00:00:00 2001 From: Baitinq Date: Sun, 9 Mar 2025 12:12:10 +0100 Subject: Examples: Add new more complex examples --- examples/13.src | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 examples/13.src (limited to 'examples/13.src') diff --git a/examples/13.src b/examples/13.src new file mode 100644 index 0000000..eeb5b32 --- /dev/null +++ b/examples/13.src @@ -0,0 +1,31 @@ +let main = () => i64 { + /* Iterative Fibonacci using while loop. */ + let fibonacci_iter = (n: i64) => i64 { + let a = 0; + let b = 1; + let i = 0; + while i < n { + let temp = b; + b = a + b; + a = temp; + i = i + 1; + }; + return a; + }; + + /* Recursive GCD using Euclid's algorithm. */ + let gcd = (a: i64, b: i64) => i64 { + if b == 0 { + return a; + }; + return gcd(b, a % b); + }; + + let fib_val = fibonacci_iter(10); + print(fib_val); + + let gcd_val = gcd(48, 18); + print(gcd_val); + + return 0; +}; -- cgit 1.4.1