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)) ...

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

组合 2015-11-07

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

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

倒数之和 2015-11-01

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

(2422)次阅读|(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) ...

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

分解质因数 2015-11-01

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

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

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

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

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

查看更多