Oke deh gan kali ini aku mau ngeshare beberapa source code program LISP, apa si LISP itu, lain waktu aku akan menjelaskannya, ini coba iseng ngepost tentang ADT POINT.

;Nama : Muhamad Fatkhur Rohim

(defun absis (a b)
    (car (list (list a) b))    
)
(defun ordinat (a b)
    (cdr (list a b))
)
(defun makepoint (a b)
    (list a b)
)
(defun isorigin (a b)
    (and
    (= a 0)(= b 0))
)
(defun jarak (a1 b1 a2 b2)
    (sqrt (+ (* (- a2 a1)(- a2 a1)) (* (- b2 b1)(- b2 b1))))
)
(defun jarak0 (a1 b1)
    (sqrt (+ (* (- 0 a1)(- 0 a1)) (* (- 0 b1)(- 0 b1))))
)
(defun kuadran (a b)
    (cond
    ((and (> a 0)(> b 0)) 'kuadran-1)
    ((and (< a 0)(> b 0)) 'kuadran-2)
    ((and (< a 0)(< b 0)) 'kuadran-3)
    ((and (> a 0)(< b 0)) 'kuadran-4)
    )
)

Semoga bermanfaat.
By : Muhamad Fatkhur Rohim