비선형리스트의 GCD

Question

커먼 리스프의 맵 함수를 사용하여 비선형리스트의 GCD를 얻으려면 어떻게해야합니까?

defun gcd (a b) 
    (cond 
     ((eq b 0) a) 
     (t (gcd b (mod a b))))) 

(defun gcdall (l) 
    (cond 
     ((null l) nil) 
     (t (...)) 
) 
) 

지도 기능을 사용하는 방법을 잘 모르기 때문에 도움이나 도움이 될 것입니다. 감사!

Answer 1

나는 그것으로 충분 쉽게, 정확하게 원하는 것을 이해한다면 :

(defun nested-gcd (list) 
    (reduce #'gcd list :key (lambda (elt) 
          (if (consp elt) 
           (nested-gcd elt) 
           elt)))) 

Answer 2

비선형 목록은 무엇인지 모르지만 표준의 일부인 gcd을 사용하면 가장 큰 공약수를 얻을 수 있습니다. 어떤 종류의 나무를 의미한다면, 먼저 나무를 평평하게해야 할 것입니다.