twc/ludus
4
0
Fork 0
Code Issues 32 Pull Requests Packages Projects 8 Releases Wiki Activity

Play with scripts

Browse Source
This commit is contained in:
Scott Richmond 2022-04-28 19:27:59 -04:00
parent 3d2c4719a6
commit 2f4be6f6a5
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hello.ld
View File

@ -1,10 +1,8 @@
fn fib {
(0) -> 1
(1) -> 1
(n) -> add (
fib (sub (n, 1)),
fib (sub (n, 2)))
}
fn fib (n) -> if eq (n, 0)
then 1
else if eq (n, 1)
then 1
else add (fib (sub (n, 1)), fib (sub (n, 2)))
fn fact {
(n) -> fact (n, 1)
@ -17,4 +15,4 @@ ns Recursive {
fib
}
:factl (Recursive) (6)
Recursive :fib (25)