[TD_LISP.git] / functions.lsp

#!/usr/bin/env newlisp

; function addition
(define (f x y) (+ x y))
(println (f 1 2))

(define f (lambda (x y) (+ x y)))
(setq f (lambda (x y) (+ x y)))
;(set 'f (lambda (x y) (+ x y)))
(println (f 1 2))
(println ((lambda (x y) (+ x y)) 1 2))

(exit)
Commit	Line	Data
b610b308 JB	1	#!/usr/bin/env newlisp
	2
	3	; function addition
	4	(define (f x y) (+ x y))
	5	(println (f 1 2))
	6
	7	(define f (lambda (x y) (+ x y)))
	8	(setq f (lambda (x y) (+ x y)))
	9	;(set 'f (lambda (x y) (+ x y)))
	10	(println (f 1 2))
	11	(println ((lambda (x y) (+ x y)) 1 2))
	12
	13	(exit)