注册 登录
明经CAD社区 返回首页

mahuan1279的个人空间 http://www.mjtd.com/?7303115 [收藏] [复制] [分享] [RSS]

日志

LISP|
分享 8皇后问题
2016-5-10 23:37
(defun check(lst k) (setq i 0) (setq num (+ 1 (length lst))) (setq slst (mapcar '(lambda (x) (list (setq i (+ i 1)) x)) lst)) (if (or (member k lst) (= 0 (apply '*(mapcar '(lambda (y) (if (= (- num (car y)) (abs (- k (cadr y)))) 0 1)) slst)))) (setq v nil) (set ...
个人分类: LISP|1469 次阅读|0 个评论 热度 1
分享 组合
2015-11-7 23:07
(defun ff (lst) (defun f (n) (setq i 0 flst nil) (while (= i n) (setq flst (cons i flst)) (setq i (+ i 1)) ) (reverse flst) ) (if (and (= (length lst) ...
个人分类: LISP|1779 次阅读|0 个评论
分享 倒数之和
2015-11-1 23:16
本帖最后由 aimisiyou 于 2015-10-14 23:28 编辑 1/ a + 1/ b + 1/ c = 1/ n , a= b= c , 且 都 为 自 然 数 , 已 知自然数 n 求 ...
个人分类: LISP|1825 次阅读|2 个评论 热度 2
分享 快速求因子
2015-11-1 23:09
(defun factor (n) (defun f (z)(+ (* z z) 1)) (setq x 1 y x k 0 i 1 d 1) (while (= d 1) (setq k (+ 1 k)) (setq x (f x)) &nb ...
个人分类: LISP|1553 次阅读|0 个评论
分享 分解质因数
2015-11-1 23:02
(defun fj (n) (defun f (n) (cond ((= n 2) (setq va (list 2))) ((= n 3) (setq va (list 3 2))) ((= n 4) (setq va (list 3 2))) & ...
个人分类: LISP|1378 次阅读|0 个评论
分享 lisp实现两大数相乘代码
2014-10-29 21:49
(defun add (lst1 lst2) (setq k1 (length lst1)) (setq k2 (length lst2)) (if ( k1 k2) (repeat (- k1 k2) (setq lst2 (cons 0 lst2)) ) (repeat (- k2 k1) (setq lst1 (cons 0 lst1)) ) &nbs ...
个人分类: LISP|1413 次阅读|0 个评论 热度 1
分享 最小覆盖圆优化O(n)
2014-10-28 18:59
;;;求点集包容矩形对角线交点坐标p_j (defun kcen (plst) (setq xlst (vl-sort (mapcar '(lambda (x) (car x) ) plst ) ')) (setq xmin (car xlst)) (setq xmax (last xlst)) (setq ylst (vl-sort (mapcar '(lambda (x) (cadr x) ) plst ) ')) ( ...
个人分类: LISP|1664 次阅读|2 个评论 热度 2
分享 最小覆盖圆递归算法
2014-10-25 18:15
(defun fmax (pt cen p) (setq d1 (distance pt cen)) (setq d2 (distance pt p)) (setq d3 (distance cen p)) (setq dn (/ (* d2 d2 d1) (+ (* d1 d1) (* d2 d2) (* d3 d3 -1)) )) dn ) (defun pfmax (pt cen plst) (setq lst (vl-sort plst '(lambda(a b) ( ...
个人分类: LISP|843 次阅读|0 个评论
分享 n以内素数递归算法优化
2014-10-25 13:04
(defun f (n) (if (= n 2) (setq va (list 2)) (if (= n 3) (setq va (list 3 2)) (if (= n 4) & ...
个人分类: LISP|778 次阅读|0 个评论
分享 求n以内所有素数递归算法及筛法
2014-10-24 17:07
;;;递归算法 (defun f (n) (if (= n 2) (setq va (list 2)) (if (= n 3) (setq va (list 3 2)) (if (= ( ...
个人分类: LISP|1029 次阅读|0 个评论
12下一页

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 05:40 , Processed in 0.106245 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部