Rekursif dalam LISP

Rekursif adalah fungsi yang memanggil dirinya sendiri dalam rekursif terdiri 2 bagian yaitu  :

  • Basis : Kondisi dimana fungsi akan berhenti.
  • Rekurens : Fungsi yang memanggil dirinya sendiri.

NbElmnt(L) : fungsi untuk menghitung jumlah element didalam list.

NbElmnt(L) :

basis = > if (null L) then 0

else

rekuren => 1 + NbElmnt(cdr L)

Program:

(defun NbELmnt (L)
(if (null L) 0
(+ 1 (NbElmnt(cdr L) ) )
)
)

Aplikasi:

(NbElemnt (1 2 3 4))

4

 

4,263 thoughts on “Rekursif dalam LISP