"У меня для вас посылка, но я вам ее не отдам" (c)
Да, по умолчанию Lisp работает с плавающей точкой в формате s = single-float. Для более точного вывода (и расчетов) необходимо повысить точность чисел. Вот вариант с повышенной точностью:
(defun distance ()
(let ((a ((list :x 3.l0 :y 7.l0)))
((b (list :x -1.l0 :y 5.l0)))
(setf res (sqrt (+ (^ (- (getf b :x) (getf a :x)) 2)
(^(- (getf b :y) (getf a :y)) 2)))))))
Добавляем в /etc/wvdial.conf строчку Stupid Mode = 1, и wvdial вцепляется в интернет, как бульдог
"У меня для вас посылка, но я вам ее не отдам" (c)
Да, по умолчанию Lisp работает с плавающей точкой в формате s = single-float. Для более точного вывода (и расчетов) необходимо повысить точность чисел. Вот вариант с повышенной точностью:
Координаты здесь - числа формата l = long-float