Implementazioni di algoritmi/Elevazione a potenza: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica |
|||
Riga 87:
esp -= 1
return result
</source>
=== Implementazione in [[LISP]] - ricorsiva ===
La funzione presuppone che l'esponente sia un numero naturale.
<source lang="lisp">
(defun Pot(a b)
(if (eq b 0) 1
(* a (Pot a (- b 1))))
)
</source>
| |||