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: Emacs, Lisp, exemplos

Última actualização/Last updated: 2012-01-08 [15:02]

1999-2011 (c) 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.