Jak podsumować listę numerów w Emacs Lisp?

Question

to działa:

(+ 1 2 3) 
6 

To nie działa:

(+ '(1 2 3)) 

To działa, jeśli 'cl-*' jest załadowany:

(reduce '+ '(1 2 3)) 
6 

Jeśli reduce były zawsze dostępne mógłbym napisać:

(defun sum (L) 
    (reduce '+ L)) 

(sum '(1 2 3)) 
6 

Jaki jest najlepszy sposób definiowania funkcji, takich jak sum?

Answer 1

(apply '+ '(1 2 3)) 

Answer 2

To powinno załatwić sprawę:

(defun sum-list (list) 
    (if list 
     (+ (car list) (sum-list (cdr list))) 
    0)) 

[source]

Edit: Here is another good link który wyjaśnia car i cdr - w zasadzie są funkcje, które pozwalają, aby pobrać pierwszy element listy i przywracanie nowa lista bez pierwszego elementu.

Answer 3

(eval (cons '+ '(1 2 3))) - choć nie tak dobre jak 'zredukować'

Answer 4

liniowo funkcja rekurencyjna (suma L)

;; 
;; sum 
;; 
(defun sum(list)  
    (if (null list) 
     0 

     (+ 
      (first list) 
      (sum (rest list)) 
     ) 
    ) 
) 

Answer 5

samochód -> wziąć pierwszy element listy

cdr -> weź wszystkie elementy listy oprócz pierwszego elementu

(defun sumup (x) (jeśli (równej x ml) 0 (+ (CAR x) (sumup (CDR x)))))

(sumup „(5 7 8 10))

Answer 6

można zdefiniować niestandardową funkcję, aby obliczyć sumę wykazu przekazanego do niego.

(defun sum (lst) (format t "The sum is ~s~%" (write-to-string (apply '+ lst))) 
EVAL: (sum '(1 4 6 4)) 
-> The sum is "15" 

Answer 7

Jeśli manipulować list i napisać kod funkcjonalny w Emacs zainstalować dash.el bibliotekę. Następnie można użyć jej -sum funkcję:

(-sum '(1 2 3 4 5)) ; => 15 

Answer 8

(wkładkę (liczby na ciąg (za '+' (1 2 3))))