repositories
/
TD_LISP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Implement a better filter function
[TD_LISP.git]
/
course
/
lambda_lists.lsp
1
#!/usr/bin/env newlisp
2
3
(define (f x y) (+ x y z))
4
;(lambda (x y) (+ x y z))
5
(println (first f))
6
(println (last f))
7
(setq z 2)
8
(println (f 1 3))
9
10
(setf (nth 1 f) '(+ x y z 1))
11
(println (f 1 3))
12
13
(println (let ((z 2)) (expand f 'z)))
14
15
(exit)