scheme代码： ;;; Method1 -- count the sum of digit before x (define (sum1 x)   (do ((n 0 (+ 1 n))        (sum 0 (+ sum n)))     ((> n x) sum...

1）牛顿法求平方根： 公式：(y + x/y) / 2，首先猜测为1，然后逐渐逼近。 (defun sqrt-iter (guess x)   (if (good-enough? guess x)       guess       (sqrt-iter (...

1）简单的宏 CL-USER> (defmacro print-test (x y)        `(format t "~A ~A~%" ,x ,y)) PRINT-TEST CL-USER> (print-test 'hello 'world) HELLO WORLD NIL 2） 3）...

1）用sort函数进行排序 CL-USER> (sort "elbow" #'char<) "below" CL-USER> (sort '(a c b s) #'string<) (A B C S) CL-USER> (sort '(39 48 28 4 32) #'<) (4 28 32 ...

集合论中的并集 (union)、交集 (intersection)以及补集 (complement)的实现，是由函数 union 、 intersection 以及 set-difference 。还有判断数组蕴涵subsetp CL-USER> (setf list1 '(a...

1）用make-array创建数组： CL-USER> (make-array 5 :initial-element nil) #(NIL NIL NIL NIL NIL) CL-USER> (make-array 5 :initial-contents '(a e i o u)) #(A E I O...

1）读取文件 用with-open-file函数打开文件 CL-USER> (defun my-read-file ()        (with-open-file (stream "d:/test.lisp")          (do ((my-file (read-line ...

哈希表

循环： 1）do循环 语法：(do ((变量名 变量初值 (变量变化语句))) (结束条件 返回值) 循环主体) CL-USER> (defun draw-line (x)        (do ((i 0 (1+ i)))          ...

1)基本的数学函数： + Adds two numbers - Subtracts the second number from the first * Multiplies two numbers / Divides the first number by the second ABS Absolute value of a numb...