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

Última actualização/Last updated: 2014-02-20 [14:37]


1999-2014 (ç) Tiago Charters de Azevedo

São permitidas cópias textuais parciais/integrais em qualquer meio com/sem alterações desde que se mantenha este aviso.

Verbatim copying and redistribution of this entire page are permitted provided this notice is preserved.