functions.lsp

   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)