Update README, new tests

This commit is contained in:
2025-12-11 14:24:11 +11:00
parent 4c6aa97fd5
commit 633e438712
4 changed files with 47 additions and 6 deletions

24
tests/recursivefib.grnd Normal file
View File

@@ -0,0 +1,24 @@
fun !fib -int -int &n -function &fib
# Base case: fib(0) = 0, fib(1) = 1
lesser $n 2 &isBase
if $isBase %baseCase
# Recursive case: fib(n) = fib(n-1) + fib(n-2)
subtract $n 1 &nMinus1
call !fib $nMinus1 $fib &fib1
subtract $n 2 &nMinus2
call !fib $nMinus2 $fib &fib2
add $fib1 $fib2 &result
return $result
@baseCase
return $n
endfun
# Main program
println "Computing fib(30) recursively..."
call !fib 30 $fib &answer
println "Result:" $answer
end