Pangkat List

Judul:
Pangkat List

Definisi dan spesifikasi:
pangkat (n) integer of list==> integer of list

Realisasi:

basis  (if(atom n) 1

rekuren  (expt(car n) (pangkat (cdr n)

Aplikasi:
(pangkat ‘( 4 2 ))

16


 

(defun pangkat(n)
(if (atom n)1
(expt(car n)(pangkat(cdr n))
)))

pangkat

 

4,979 thoughts on “Pangkat List