多个数值最大公约数

llsheng_73

1. (defun mgcd(lst / a);;;适合元素不太多的情况
   
2.   (while(and(>(length lst)1)(/=(car lst)1))
   
3.     (setq lst(cons(gcd(car lst)(cadr lst))(cddr lst))))
   
4.   (car lst))
   
5. (defun mgcd(lst / a);;;适合元素很多的情况
   
6.   (while(and(>(length lst)1)(/= a 1))
   
7.     (setq lst(cons(setq a(gcd(car lst)(cadr lst)))(if(/= a 1)(vl-remove-if'(LAMBDA (x)(=(rem x a)0))(cddr lst))))))
   
8.   (car lst))
   

(defun mgcd(lst / a);;;适合元素不太多的情况<br />   (while(and(>(length lst)1)(/=(car lst)1))<br />     (setq lst(cons(gcd(car lst)(cadr lst))(cddr lst))))<br />   (car lst))<br /> (defun mgcd(lst / a);;;适合元素很多的情况<br />   (while(and(>(length lst)1)(/= a 1))<br />     (setq lst(cons(setq a(gcd(car lst)(cadr lst)))(if(/= a 1)(vl-remove-if'(LAMBDA (x)(=(rem x a)0))(cddr lst))))))<br />   (car lst))<br />

lianghui2018

谢谢楼主分享

kkt123

谢谢楼主分享;P