Membuat Fungsi IsPrima LISP

1. Membuat fungsi untuk menghitung banyaknya faktor dari inputan n dengan a = 1


(defun bykFktr (a n)
          (cond     ((= a n) 1)
                        ((= (modulo n a) 0) (+ 1 (bykFktr (a + 1)  n ) ) )
                        (t (bykFktr (a + 1) n) )
          )
)


2. Menentukan apakah n bilangan prima ==> fungsi banyak faktor harus menghasilkan angka 2


(defun IsPrima (n)
          (if (= (bykFktr 1 n) 2)  t  nil)
)