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 { fn fib (n) -> if eq (n, 0)
(0) -> 1 then 1
(1) -> 1 else if eq (n, 1)
(n) -> add ( then 1
fib (sub (n, 1)), else add (fib (sub (n, 1)), fib (sub (n, 2)))
fib (sub (n, 2)))
}
fn fact { fn fact {
(n) -> fact (n, 1) (n) -> fact (n, 1)
@ -17,4 +15,4 @@ ns Recursive {
fib fib
} }
:factl (Recursive) (6) Recursive :fib (25)