立即注册登录

晓东CAD家园-论坛返回首页

aimisiyou的个人空间 http://bbs.xdcad.net/?729558 [收藏] [复制] [分享] [RSS]

日志

分享两表做左对齐加法运算: 2014-12-8 21:42; ;;;两表做左对齐加法运算 (defun add (lst1 lst2) (if ( (length lst1) (length lst2)) (add lst2 lst1) (progn (setq i 0 lst nil) (while ( i (length lst1) ) ( ...; 个人分类: lisp|260 次阅读|0 个评论

分享十进制转二进制: 2014-12-8 20:40; (defun fbin (n) (setq alst '(30 29 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0)) (if (= (rem n 2) 1) (setq flag nil)(setq flag 1)) (setq lst nil) (while ( n 1) (setq i (fix (/ (log n) (log 2)))) &nb ...; 个人分类: lisp|245 次阅读|0 个评论热度 1

分享大数相乘: 2014-11-23 18:47; (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)) ) ...; 个人分类: lisp|258 次阅读|0 个评论

aimisiyou

|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-4-20 16:22 , Processed in 0.112049 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

返回顶部