X-Git-Url: https://git.piment-noir.org/?p=TD_LISP.git;a=blobdiff_plain;f=course%2Flambda_lists.lsp;fp=course%2Flambda_lists.lsp;h=5c446d3f07c51c8a07abf184f9eb0cc7a39f06a4;hp=0000000000000000000000000000000000000000;hb=15c46339dbd746558fb5b82c2823e0ede2cc7bfd;hpb=a5273e70fe54850ee147232848c009ede063ee7b

diff --git a/course/lambda_lists.lsp b/course/lambda_lists.lsp
new file mode 100755
index 0000000..5c446d3
--- /dev/null
+++ b/course/lambda_lists.lsp
@@ -0,0 +1,15 @@
+#!/usr/bin/env newlisp
+
+(define (f x y) (+ x y z))
+;(lambda (x y) (+ x y z))
+(println (first f))
+(println (last f))
+(setq z 2)
+(println (f 1 3))
+
+(setf (nth 1 f) '(+ x y z 1))
+(println (f 1 3))
+
+(println (let ((z 2)) (expand f 'z)))
+
+(exit)