[飞马小讨论] 8888..........88888（n个8）能被2012整除，n的最小值

361210

呵呵 有意思

chlh_jd

借QJ-CHEN老师宝地祝大家新春快乐！~
HFB前辈的代码十分简洁，在前面加了除以最大公约数后效率提高近20%（我测试的结果）

2. (defun test (n d / i x)
   
3.   ((lambda (m)
   
4.      (setq n (/ n m)
   
5.            d (/ d m)
   
6.      )
   
7.    )
   
8.     (gcd n d)
   
9.   )
   
10.   (setq i 1
    
11.         x d)
    
12.   (while (/= x 0)
    
13.     (setq x (rem (+ (* x 10) d) n)
    
14.           i (1+ i)
    
15.     )
    
16.   )  
    
17. )
    
18. (test 2012 8)
    

(defun test (n d / i x)<br />   ((lambda (m)<br />      (setq n (/ n m)<br />            d (/ d m)<br />      )<br />    )<br />     (gcd n d)<br />   )<br />   (setq i 1<br />         x d)<br />   (while (/= x 0)<br />     (setq x (rem (+ (* x 10) d) n)<br />           i (1+ i)<br />     )<br />   )  <br /> )<br /> (test 2012 8)<br />