[kolobrod]

Помогите пожалуйста. Что-то не соображу никак.

Хочу, например, получить из списка 5 элементов, начиная с 10-го. Как это наиболее оптимально сделать?

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

Код:

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

(defun lst-sort	(lst start len / res)
  (repeat len
    (if	res
      (setq start (1+ start))
      ) ;_ end of if
    (setq res (append res (list (nth start lst))))
    ) ;_ end of repeat
  ) ;_ end of defun
;;_$ (lst-sort '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20) 10 5)
;;(11 12 13 14 15)

[kolobrod]

Понятно. Так я и сам придумал. Я думал может есть какая специальная функция или прием какой хитрый. Всетаки язык ориентированный на работу со списками....

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

Если у тебя список структурированный, то можно попробовать через (assoc). Я код написал на коленке, так что сильно не бей.

[kolobrod]

Спасибо. Буду разбираться...

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

Так а что конкретно надо получить? Может, есть другой вариант?

[CB]

Можно так:

Код:

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

(setq lst '((67 . 0) (410 . "Model") 99 (10 171.577 206.218 0.0) 54 (11 22) 23 (55 44 66) 44))

(set 'trim_sp '(( a b c / ) (vl-remove-if-not '(lambda (x) (<= a (vl-position x c) (1- (+ a b)) )) c)))

_$ (trim_sp 1 3 lst)
((410 . "Model") 99 (10 171.577 206.218 0.0))
_$ (trim_sp 5 4 lst)
((11 22) 23 (55 44 66) 44)