Dato che oggi ho avuto la mia prima “esperienza” con LISP non posso non segnarmi la prima funzione “idiota” che ho scritto:
(defun fatt(a)
(cond (= a 0) 1)
(T (* a (fatt (- a 1) ) ) )
)
Odio le parentesi! Sicuramente ne ho mancata qualcuna!
Cmq se non si era capito, questa funzione calcola il fattoriale di un numero!
Enjoy
Commenti Recenti