社区 › AutoLISP/Visual LISP 编程技术 › 纯lsp实现lsp的超大整数四则运算

xyp1964 发表于 2022-3-24 23:56:58

(defun try-fix->bignum (n / fushu m x)
(if (< n 0)
    (setq fushu        t
          n (- n)
    )
)
(while (/= 0 n)
    (setq m (fix (rem n 10000))
          n (fix (/ n 10000))
          x (cons m x)
    )
)
(if (not x)
    (setq x '(0))
)
(if fushu
    (cons (- (car x)) (cdr x))
    x
)
)

tryhi 发表于 2022-3-25 09:30:19

xyp1964 发表于 2022-3-24 23:56
(defun try-fix->bignum (n / fushu m x)
(if (< n 0)
    (setq fushu        t


这个函数负数处理确实写错了，感谢院长指点

xujinhua 发表于 2022-10-14 19:13:37

谢谢！还有超大数，没想到

cchessbd 发表于 2022-10-14 20:15:19

大大，太牛了，我才发现这个大数问题。cad帮助文件里面也没提。
怪不得有些程序运行出错。大大，真是LISP专家级别，佩服佩服佩服！

hyqfa 发表于 2023-7-12 16:48:42

牛逼..........................................

查看完整版本: 纯lsp实现lsp的超大整数四则运算