(defun calculatedistance (x1 y1 x2 y2) (write (sqrt (+ (* (- x1 x2) (- x1 x2)) (* (- y1 y2)(- y1 y2))))) ) (calculatedistance 1 2 10 3)
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more