（XD::Math:Rem）超大整数求余数

newer

1. (defun XD::Math:Rem (a b / str i m)
   
2.   (defun _isint (str)
   
3.     (setq c (mapcar '(lambda (x) (- x 48)) (vl-string->list str)))
   
4.     (if (vl-some '(lambda (x) (> x 9)) c)
   
5.       nil
   
6.       c
   
7.     )
   
8.   )
   
9.   (cond
   
10.     ((= (type a) 'INT)
    
11.      (setq str (itoa a))
    
12.     )
    
13.     ((= (type a) 'REAL)
    
14.      (setq str (rtos a))
    
15.     )
    
16.     ((= (type a) 'STR)
    
17.      (setq str a)
    
18.     )
    
19.   )
    
20.   (if (and str (setq str (_isint str)))
    
21.     (progn
    
22.       (setq
    
23.         i 0
    
24.         m 0
    
25.       )
    
26.       (repeat (length str)
    
27.         (setq m (rem (+ (* 10 (rem m b)) (rem (nth i str) b)) b))
    
28.         (setq i (1+ i))
    
29.       )
    
30.     )
    
31.   )
    
32.   m
    
33. )
    
34. 
    

(defun XD::Math:Rem (a b / str i m)<br />   (defun _isint (str)<br />     (setq c (mapcar '(lambda (x) (- x 48)) (vl-string->list str)))<br />     (if (vl-some '(lambda (x) (> x 9)) c)<br />       nil<br />       c<br />     )<br />   )<br />   (cond<br />     ((= (type a) 'INT)<br />      (setq str (itoa a))<br />     )<br />     ((= (type a) 'REAL)<br />      (setq str (rtos a))<br />     )<br />     ((= (type a) 'STR)<br />      (setq str a)<br />     )<br />   )<br />   (if (and str (setq str (_isint str)))<br />     (progn<br />       (setq<br />         i 0<br />         m 0<br />       )<br />       (repeat (length str)<br />         (setq m (rem (+ (* 10 (rem m b)) (rem (nth i str) b)) b))<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   m<br /> )<br /> <br />

命令: (xd::math:rem "20107019021211566" 56789)
51449

ming1789

正需要，支持楼主大人了！

TouBeeShow

多谢楼主分享。