Обновить
1
0
Сергей @Oldchip

Программист

Отправить сообщение

Добавляем в /etc/wvdial.conf строчку Stupid Mode = 1, и wvdial вцепляется в интернет, как бульдог

"У меня для вас посылка, но я вам ее не отдам" (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)))))))
  • Координаты здесь - числа формата l = long-float

Информация

В рейтинге
Не участвует
Откуда
Бийск, Алтайский край, Россия
Дата рождения
Зарегистрирован
Активность