8皇后问题 2016-05-10

(defun check(lst k)   (setq i 0)   (setq num (+ 1 (length lst)))   (setq slst (mapcar '(lambda (x) (list (setq i (+ i 1)) x)) lst)) ...

(814)次阅读|(0)个评论

组合 2015-11-07

(defun ff (lst)   (defun f (n)     (setq i 0 flst nil)     (while (<= i n)       (setq flst (cons i fls ...

(1108)次阅读|(0)个评论

倒数之和 2015-11-01

本帖最后由 aimisiyou 于 2015-10-14 23:28 编辑 1/ a + 1/ b + 1/ c = 1 ...

(1145)次阅读|(2)个评论

快速求因子 2015-11-01

(defun factor (n)     (defun f (z)  (+ (* z z) 1))     (setq x 1 y x k 0 i 1 d 1)     (while (= d 1) ...

(986)次阅读|(0)个评论

分解质因数 2015-11-01

(defun fj (n)   (defun f (n)       (cond          ((= n 2) (setq va (list 2))) &n ...

(786)次阅读|(0)个评论

lisp实现两大数相乘代码 2014-10-29

(defun add (lst1 lst2)   (setq k1 (length lst1))   (setq k2 (length lst2))   (if (> k1 k2)           (r ...

(748)次阅读|(0)个评论

查看更多