Sumatório: imperativo vs funcional

Implementação em Emacs Lisp da soma das componentes de dois vectores.

Duas formas de fazer a mesma coisa em Emacs Lisp, a primeira de uma forma imperativa, a segunda funcional; implementam a soma de um vector.

A primeira: forma imperativa

(defun sum (x)
  "Sum of elements of X."
  (let ((i 0) (aux 0))
    (while (< i (length x))
      (setq aux (+ aux (nth i x))
            i (1+ i)))
    aux))

A segunda: forma funcional

(defun sum (x)
  "Sum of elements of X."
  (cond (x
         (+ (car x) (sum (cdr x))))
        (t 0)))

Mais bonita, esta última!

Palavras chave/keywords: Emacs, Lisp, matemática, programação funcional, programação imperativa, programação

Criado/Created: NaN

Última actualização/Last updated: 10-10-2022 [14:26]

Voltar à página inicial.