ryuali2010的专栏

(defparameter *words* (make-hash-table :size 10000))(defconstant maxword 100)(defun punc (c) (case c (#\. '|.|) (#\, '|,|) (#\; '|;|) (#\! '|!|) (#\? '|?|)));;当前的字符串为symb,而它前面的字符串为prev

(defun bin-search (obj vec) (let ((len (length vec))) (and (not (zerop len)) (finder obj vec 0 (- len 1)))));;vec的话，总共两种情况要么even要么odd.;;finder函数实现的功能就是在vector中查找obj，现在假设obj < obj2，这个时候需要找到左半

(defstruct buf vec (start -1) (used -1) (new -1) (end -1))(defun bref (buf n) (svref (buf-vec buf) (mod n (length (buf-vec buf)))));;;扩展setf方法，注意下面调用的方式(defun (setf bref) (val buf n)

;;因为tokens被赋予了3个参数，目的是从一个字符串以不符合某些条件的字符为分隔符，获得分隔符之间的string对象的列表(defun tokens (str test start) (let ((p1 (position-if test str :start start))) ;;把p1设置为第一个符合test字符的位置 (if p1 (let ((p2 (pos

;;;用于判断当前的sequence的值是否是对称的。(defun mirror? (s) (let ((len (length s))) (and (evenp len) (do ((forward 0 (+ forward 1)) (back (- len 1) (- back 1))) ((or (> forward back) ;;针对情况：完

由date转化得到具体的天数(defconstant month #(0 31 59 90 120 151 181 212 243 273 304 334 365))(defconstant yzero 2000);;能够被4整除，并且要么是能够被400整除。要么是不能够被100整除。(defun leap? (y) (and (zerop (mod y 4))