纯lsp实现lsp的超大整数四则运算

xyp1964

(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

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

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

xujinhua

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

cchessbd

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

hyqfa

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