1.20

secje posted @ 2010年5月09日 06:02 in sicp , 1060 阅读

 

(gcd 206 40)
(if (= 40 0)
    206
    (gcd 40 (remainder 206 40)))
(if (= (remainder 206 40) 0)      ;1
    40
    (gcd (remainder 206 40) (remainder 40
                                       (remainder 206 40))))
(if (= (remainder 40
                  (remainder 206 40)) 0)   ;2
    (remainder 206 40)
    (gcd (remainder 40
                    (remainder 206 40))
         (remainder (remainder 206 40)
                    (remainder 40
                               (remainder 206 40)))))
(if (= (remainder (remainder 206 40)
                  (remainder 40
                             (remainder 206 40))) 0)    ;4
    (remainder 40
               (remainder 206 40))
    (gcd (remainder (remainder 206 40)
                    (remainder 40
                               (remainder 206 40)))
         (remainder (remainder 40
                               (remainder 206 40))
                    (remainder (remainder 206 40)
                               (remainder 40
                                         (remainder 206 40))))))
(if (= (remainder (remainder 40
                            (remainder 206 40))
                  (remainder (remainder 206 40)
                             (remainder 40
                                        (remainder 206 40)))) 0) ;7 and indeed equal to 0, so continue the next (1)
    (remainder (remainder 206 40)
               (remainder 40
                         (remainder 206 40)))   ;(1)  4
    (gcd (remainder (remainder 40
                               (remainder 206 40))
                    (remainder (remainder 206 40)
                               (remainder 40
                                          (remainder 206 40))))
         (remainder (remainder (remainder 206 40)
                               (remainder 40
                                          (remainder 206 40)))
                    (remainder (remainder 40
                                          (remainder 206 40))
                               (remainder (remainder 206 40)
                                          (remainder 40
                                                     (remainder 206 40)))))))     ;so the result is 1+2+4+7+4=18

 

 


登录 *


loading captcha image...
(输入验证码)
or Ctrl+Enter