GCD нелинейного списка Lisp

Question

Как получить GCD нелинейного списка с использованием функций Map в Common Lisp?

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, который является частью стандарта. Если вы имеете в виду какое-то дерево, вам, возможно, придется сначала сгладить его.