大数相乘

aimisiyou

(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)) )
   )
  (setq addlst (mapcar '(lambda (x y) (+ x y)) lst1 lst2 ))
  addlst
)
(defun lnum (lst n n0)
   (setq lst (mapcar '(lambda (x) (* x n))  lst))
   (setq zlst (reverse lst))
   (repeat n0 (setq zlst (cons 0 zlst) ) )
(reverse zlst)
)  
(defun xc(lst1 lst2)
   (setq n1 (length lst1))
   (setq n2 (length lst2))
   (setq j 1 fflst '(0))
   (if (> n1 n2)
          (while (<= j n2)
              (setq fflst (add (lnum lst1 (nth (- j 1) lst2) (- n2 j) ) fflst))
              (setq j (+ 1 j))
           )
          (while (<= j n1)
              (setq fflst (add (lnum lst2 (nth (- j 1) lst1) (- n1 j) ) fflst))
              (setq j (+ 1 j))
           )
    )
fflst
)
(defun jinw (blst)
    (while (not (apply 'and (mapcar '(lambda (x) (<= x 9)) blst )))
         (setq hlst (mapcar '(lambda (x) (rem x 10)) blst))
         (setq qlst (mapcar '(lambda (x) (/ x 10)) blst))
         (setq qlst (append qlst (list 0)))
         (setq blst (add hlst qlst))
    )
  blst
)
(defun sr(a)
   (setq n (strlen a) i 1 lst nil)
   (while (<= i n)
        (setq lst (cons (atoi (substr a i 1)) lst))
        (setq i (+ 1 i))
   )
   (reverse lst)
)
(defun c:dc()
  (setq a (getstring "请输入a="))
  (setq b (getstring "请输入b="))
  (setq lst1 (sr a))
  (setq lst2 (sr b))
  (setq tenlst (jinw (xc lst1 lst2)))
  (setq str (apply 'strcat (mapcar '(lambda (x) (itoa x)) tenlst ) ) )
  (if (= (car tenlst) 0)
      (setq str (vl-string-left-trim "0" str))
  )
  (princ (strcat a "*" b "=" str))
  (princ)
)

/db_自贡黄明儒_

什么是大数相乘，顾名思义，就是两个超过计算机表示的高精度数相乘。 结果当然也是超出计算机表示的，我们知道，这种情况称之为溢出

/db_自贡黄明儒_

问题来了：多大的数才算大数，？

newer

/db_自贡黄明儒_ 发表于 2014-11-23 19:03
问题来了：多大的数才算大数，？

32位机器，64位机器。

/db_自贡黄明儒_

newer 发表于 2014-11-23 19:16
32位机器，64位机器。

分别是多少呢？lisp编组用得着考虑这个问题吗？是不是e后面的最大整数？

newer

/db_自贡黄明儒_ 发表于 2014-11-23 19:31
分别是多少呢？lisp编组用得着考虑这个问题吗？是不是e后面的最大整数？

32位机器，就表示能表示的整数最大是32位2进制位了，2的32次方。

aimisiyou

/db_自贡黄明儒_ 发表于 2014-11-23 19:03
问题来了：多大的数才算大数，？

备注：由于getstring函数，最高只能算256位*256位。

newer

aimisiyou 发表于 2014-11-23 19:40
备注：由于getstring函数，最高只能算256位*256位。

你要算什么东西，要这么大位{:soso_e113:}

aimisiyou

newer 发表于 2014-11-23 19:48
你要算什么东西，要这么大位

根据连分式方法，验算下pell方程的非平凡解。

/db_自贡黄明儒_

aimisiyou 发表于 2014-11-23 20:07
根据连分式方法，验算下pell方程的非平凡解。

白度了—下，说是傅立爷变换最快，楼主是用的这—方法吗？我都忘了，傅立爷是什么样子了，书中自有傅立爷？

newer

aimisiyou 发表于 2014-11-23 20:07
根据连分式方法，验算下pell方程的非平凡解。

感兴趣，能不能单独开个帖子，给大家介绍下连分式方法，和PELL方程？和具体的应用场合？

/db_自贡黄明儒_

从来不见颜如玉。

aimisiyou

连分式求解pell方程的算法网上可以搜到很多，很详细的，我只不过把它写成lisp代码。