berikut ini adalah contoh fungsi untuk mencari bilangan faktorial dengan cara rekursif menggunakan LISP, pertama buatlah fungsi berikut :
(defun faktorial (x)
(if (= x 1) 1 (* x (faktorial (- x 1))))
)
fungsi tersebut dapat dibuat dalam konsole LispWork (software dapat anda download disini) atau dapat dibuat pada file terpisah, jika disimpan pada file terpisah maka untuk memanggil fungsi pada lispwork ditambahkan perintah :
(load "[path name]")
untuk menggunakan fungsi tersebut maka pada lispwork console tulislah :
(faktorial 6)
maka hasilnya :
720
(defun faktorial (x)
(if (= x 1) 1 (* x (faktorial (- x 1))))
)
fungsi tersebut dapat dibuat dalam konsole LispWork (software dapat anda download disini) atau dapat dibuat pada file terpisah, jika disimpan pada file terpisah maka untuk memanggil fungsi pada lispwork ditambahkan perintah :
(load "[path name
untuk menggunakan fungsi tersebut maka pada lispwork console tulislah :
(faktorial 6)
maka hasilnya :
720
No comments:
Post a Comment