История изменений
Исправление saufesma, (текущая версия) :
Вот ещё но тема та же
(defvar *distances-lst*
'(50 990 1181.58))
(defvar *A-distance* 0)
(defvar *A-right* '())
(defun collect-right-A (A-distance distances-lst)
(if (< A-distance (car distances-lst))
*A-right*
(progn
(push (car distances-lst) *A-right*)
(collect-right-A A-distance (cdr distances-lst)))))
WARNING: redefining COMMON-LISP-USER::COLLECT-RIGHT-A in DEFUN
COLLECT-RIGHT-A
CL-USER> (collect-right-A *A-distance* *distances-lst*)
(50 990 1181.58 50 990 1181.58 50 990 1181.58 50 990 1181.58) такого не ожидал
Исходная версия saufesma, :
Вот ещё но тема та же
(defvar *distances-lst*
'(50 990 1181.58))
(defvar *A-distance* 0)
(defun collect-right-A (A-distance distances-lst)
(if (< A-distance (car distances-lst))
*A-right*
(progn
(push (car distances-lst) *A-right*)
(collect-right-A A-distance (cdr distances-lst)))))
WARNING: redefining COMMON-LISP-USER::COLLECT-RIGHT-A in DEFUN
COLLECT-RIGHT-A
CL-USER> (collect-right-A *A-distance* *distances-lst*)
(50 990 1181.58 50 990 1181.58 50 990 1181.58 50 990 1181.58) такого не ожидал