diff --git a/test.jl b/test.jl new file mode 100644 index 0000000..bbcb92f --- /dev/null +++ b/test.jl @@ -0,0 +1,19 @@ +def square + (lambda a -> (a * a)) + +def pow + (lambda base exp -> + (base ^ exp)) + +def powed (pow (2 + 3 * 5) 2) + +def squared (square powed) + +def fact + (lambda n -> + if (n == 0) + then 1 + else + (n * (fact (n - 1)))) + +def main (print (fact 15))