[Chief]

Дано: список чисел вида (12.3 34.4 55.2 78.0 103.3 ..... )
Требуется функция, результатом которой будет число из этого списка, ближайшее по значению к заданному, например:
(funn 70 spisok)
78.0

[Кулик Алексей aka kpblc]

Нечто типа (пишу без проверки и с телефона)

Код:

[Выделить все]

(car (vl-sort lst (function (lambda(a b)(< (abs (- a value))(abs (- b value)))))

[getr]

Насколько правильным будет такое оформление кода?

Код:

[Выделить все]

 ;;;функция возвращает ближайшее число из заданного списка
;;; 23.5-> 23
;;; 23.6-> 24
;;; пример вызова (rad40 23.6)

(defun rad40 (chislo /)
;;;нормальные размеры ряд Ra40 + дополнительные размеры гост 6636-69*
(setq lst '(20 21 22 23 24 25 26 27 28 30 32 34 35 36 38 40 42 45 48 50 52 53 55 56 58 60 62 63 65 67 70 71
            73 75 78 80 82 85 88 90 92 95 98 100 102 105 108 110 112 115 118 120 125 130 135 140 145
            150 155 160 165 170 175 180 185))
(setq value chislo)
(car (vl-sort lst (function (lambda (a b) (< (abs (- a value)) (abs (- b value)))))))
);end defun

[name02]

Нужно переменную lst сделать локальной, a value - убрать, вместо неё используй value:

Код:

[Выделить все]

 ;;;функция возвращает ближайшее число из заданного списка
;;; 23.5-> 23
;;; 23.6-> 24
;;; пример вызова (rad40 23.6)

(defun rad40 (value / lst)
  ;;;нормальные размеры ряд Ra40 + дополнительные размеры гост 6636-69*
  (setq	lst '(20   21	22   23	  24   25   26	 27   28   30	32   34	  35   36   38	 40   42   45	48   50	  52
	      53   55	56   58	  60   62   63	 65   67   70	71   73	  75   78   80	 82   85   88	90   92	  95
	      98   100	102  105  108  110  112	 115  118  120	125  130  135  140  145	 150  155  160	165  170  175
	      180  185
	     )
  ) ;_ end of setq
  (car
    (vl-sort lst
	     (function
	       (lambda (a b) (< (abs (- a value)) (abs (- b value))))
	     ) ;_ end of function
    ) ;_ end of vl-sort
  ) ;_ end of car
) ;_ end of defun

[===AAA===]

Я бы и список параметром в функцию передавал...

[koMon]

если разница между испытуемым числом и соседними справа и слева в списке будет одинаковой, то выберется только левое меньшее число.

[getr]

Спасибо всем.Всё получилось.