From 8831c89b582ee96fa4bf2078ad5a66302a6eeb66 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sat, 24 Sep 2022 21:43:08 +0300 Subject: Implement let exprs in function def --- examples/test.lisp | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'examples/test.lisp') diff --git a/examples/test.lisp b/examples/test.lisp index 276dcd5..536caa5 100644 --- a/examples/test.lisp +++ b/examples/test.lisp @@ -27,13 +27,23 @@ (filter pred [0 1 2 3 4 5]) +;; (let fibo (\[n] +;; (match n +;; 0 0 +;; 1 1 +;; (+ +;; (fibo (- n 1)) +;; (fibo (- n 2)))))) + +;; (fibo 10) + (let fibo (\[n] + (let lazy fibo-1 (fibo (- n 1))) + (let lazy fibo-2 (fibo (- n 2))) (match n 0 0 1 1 - (+ - (fibo (- n 1)) - (fibo (- n 2)))))) + (+ fibo-1 fibo-2)))) (fibo 10) -- cgit v1.3