Exemplos em ELISP

Alguns exemplos em ELISP.

Tomemos agora o seguinte exemplo, o de construir uma função que soma todos os inteiros entre a a b:

(defun sum-int (a b)
  (cond ((> a b) 0)
        (t (+ a (sum-int (+ a 1) b)))))

Definindo a função quadrado de um número square

(defun square (x)
  (* x x))

podemos definir também a soma dos quadrados dos inteiros entre a a b como

(defun sum-int-square (a b)
  (cond ((> a b) 0)
        (t (+ (square a) (sum-int-square (+ a 1) b)))))

A série $latex2png equation$ converge (muito devagar) para o número $latex2png equation$ :

(defun pi-sum (a b)
  (cond ((> a b) 0)
        (t (+ (/ 1.0 (* a (+ a 2))) (pi-sum (+ a 4) b)))))

Palavras chave/keywords: Emacs, Lisp, exemplos

Criado/Created: NaN

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

Voltar à página inicial.