Summa i Lisp

Den som vill leka med emacs (som ju är en programmerbar editor och kan programmeras i en variant av Common Lisp) kan ju testa att skriva in nedanstående program.

(setq sum 0)
(setq k 1)
(while (<= k 1000000)
    (setq sum (+ sum (/ 1.0 k)))
    (setq k (+ k 1))
)
(eval sum)
 

Byt till Emacs-lisp-mode genom att i emacs ge kommandot:
 

M står för Meta (som brukar vara Escape). Emacs bör då gå över i Lisp-mode och visa menyn Emacs-Lisp. Välj Evaluate Buffer från Emacs-Lisp-menyn. Ställ sedan musen efter sista högerparentesen och vänta till markören flyttar sig dit (beräkningen tar ju lite tid) och välj Evaluate Last S-expression varvid summan, i dubbel precision, bör synas längst ner i emacs-fönstret. Vill man köra Common Lisp kan man hämta ett system från clisp.cons.org t.ex.