CL-USER> (defun local (x)
(setq x (+ x 1))
(* x x))
LOCAL
CL-USER> (local 3)
16
CL-USER> x
2
CL-USER>
CL-USER> (defun local (x)
(setq x (+ x 1))
(* x x))
LOCAL
CL-USER> (local 3)
16
CL-USER> x
2
CL-USER>
遞歸: #lang racket (define (FIB X) (cond ((= X 0) 0) ((= X 1) 1) ((> X 1) (+ (FIB (-
LISP 維基百科,自由的百科全書 跳轉到: 導航,搜索 漢漢▼ Lisp 編程範型 多範型: 函數式, 過程式, 反射式, 元編程 發行時間 1958 設計者 約翰·麥卡錫 實作者 Steve