[back1981]

Необходимо вставить в список элемент на определнную позицию, т.е. вот так

(setq lst (insert_element num element lst)), где num - позиция в списке, element - вставляемый элемент, lst - список куда вставляют, возврат искомый список. Сам то я сделал, но очень не элегантно, при помощи перебора с repeat. Есть ли что нибудь готовое? Заранее благодарен.

[gomer]

на заре своей юности делал... так шта мог и ошибиться...

Код:

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

(defun cuta (lst i)
;;; Возвращяет часть списка до i-го элемента включительно
;;; (cuta (list 1 3 4 2 5) 1)
  (while (> (length lst) (1+ i))
    (setq lst (reverse (cdr (reverse lst))))
  )
)

(defun cutb (lst i)
;;; Возвращяет часть списка от i-го элемента включительно
;;; (cutb 3 '(1 3 4 2 5))
  (if (= i 0)
    lst
    (if	(= i 1)
      (cdr lst)
      (setq ls (cutb (cdr lst) (1- i)))
    )
  )
)
(defun inserta (lst n i)
;;; (inserta 7 2 '(1 3 4 2 5))
  (append (cuta lst i) (cons n (cutb lst (1+ i))))
)

(defun insertb (lst n i)
;;; (insertb 7 2 (list 1 3 4 2 5))
  (append (cuta lst (1- i)) (cons n (cutb lst i)))
)

[back1981]

Похоже на правду, спсибо

[Дима_]

Сообщение от back1981 Необходимо вставить в список элемент на определнную позицию...

Уверен, что Вы пытаетесь использовать список как массив - это стандартная "мания" "приходящих в лисп". Посмотрите как решаются подобные Вышей исходной задаче - вряд-ли такую операцию встретите.
p.s. и не спроста такой "простой" операции в стандартном наборе команд нет. Чтобы писать на лиспе, надо научится понимать его логику.

[gomer]

Сообщение от Дима_ Чтобы писать на лиспе, надо научится понимать его логику.

Элементарный пример... вставка в list_box dcl-окна... как по другому решить эту задачу?

[VVA]

Код:

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

(defun remove-i (i lst)
;;;================================================================
;;;Ф-ция удаляет i-й(начиная с 0) элемент списка
;;; i - индекс элемента
;;;lst- список
;;;================================================================
(setq i (1+ i))
(vl-remove-if '(lambda (x) (zerop (setq i (1- i)))) lst)
) ;_ end of defun

(defun Insert-i (pos item lst / tmp)
;;;================================================================
;;;Ф-ция вставляет в позицию pos (начиная с 0) элемент списка item
;;; pos - индекс (позиция) начиная с 0
;;;; item - элемент списка
;;;  lst- список
;;;_http://www.theswamp.org/index.php?topic=14226.0
;;;================================================================
       (if (< -1 pos (1+ (length lst)))
        (progn
          (repeat pos
            (setq tmp (cons (car lst) tmp)
                  lst (cdr lst)
            );_setq
          );_repeat
          (append (reverse tmp) (list item) lst)
        );_progn
        lst
      );_if
  );_defun
(defun subst-i (i itm lst)
;;;================================================================
;;;Ф-ция изменяет i-й(начиная с 0) элемент списка новым значением
;;; i - индекс элемента
;;;itm - новое значение
;;;lst - список
;;;http://www.theswamp.org/index.php?topic=14170.0
;;;================================================================
      (setq i (1+ i))
      (mapcar
        '(lambda (x)
           (if (zerop (setq i (1- i)))
             itm
             x
           ) ;_ end of if
         ) ;_ end of lambda
        lst
      ) ;_ end of mapcar
    ) ;_ end of defun

[gomer]

Сообщение от VVA (defun subst-i (i itm lst) ;;;================================================================ ;;;Ф-ция изменяет i-й(начиная с 0) элемент списка новым значением ;;; i - индекс элемента ;;;itm - новое значение ;;;lst - список ;;;http://www.theswamp.org/index.php?topic=14170.0 ;;;================================================================ (setq i (1+ i)) (mapcar '(lambda (x) (if (zerop (setq i (1- i))) itm x ) ;_ end of if ) ;_ end of lambda lst ) ;_ end of mapcar ) ;_ end of defun

хорошее решение для списков в диалоговых окнах но для больших списков будет медленней работать ятд
аналогично с remove-i

[back1981]

Собственно говоря хочу хранить некоторую служебную иформацию в расширенных данных некоторых граф. элементов а затем ее отсортировывать по входящим в эти элементы данным. сортировку уже сделал сейчас на этапе оптимизации. вобщем все.

[Li6-D]

Сообщение от back1981 Собственно говоря хочу хранить некоторую служебную иформацию в расширенных данных некоторых граф. элементов а затем ее отсортировывать по входящим в эти элементы данным. сортировку уже сделал сейчас на этапе оптимизации. вобщем все.

Для сортировки пригодятся стандартные функции vl-sort, vl-sort-i.
Первая функция в некоторых случаях может удалять дублирующие элементы.

[VVA]

Сообщение от gomer в диалоговых окнах но для больших списков будет медленней работать ятд

Медленней чем что?
В примечаниях опубликованных лиспов есть ссылка на соответствующую тему на theswamp.org. Там много хороших алгоритмов + для всех есть Benchmark'и.

[back1981]

Переделал своего сортировочного монстра посредством vl-sort-i, но главое тут в lambda функции. Получилось на порядок красивее. Поясните пожалуйста если скажем тест-функция выдаст все nil, то получиться обратный список иначе говоря все элементы выдавшие тест функции nil сдвигаются вверх?

[gomer]

Сообщение от VVA Медленней чем что?

я о том, что mapcar перебирает весь список, что в данном случае не нужно... Хотя вариант в #6 может работать быстрее #2...
самый быстрый вариант имхо, как в счетах... отсчитали нужное, удалили или вставили... отсчитали обратно... хвост списка не обрабатывается...

[Li6-D]

Сообщение от back1981 Переделал своего сортировочного монстра посредством vl-sort-i, но главое тут в lambda функции. Получилось на порядок красивее. Поясните пожалуйста если скажем тест-функция выдаст все nil, то получиться обратный список иначе говоря все элементы выдавшие тест функции nil сдвигаются вверх?

Список будет отсортирован так, чтобы тест-функция для двух последовательных элементов в отсортированном списке возвращала T. То есть при подстановке элементов отсортированного списка с номерами i и (1+ i) соответственно в первый и второй аргументы лямбда-функции всегда получим Т.
А чтобы получить реверсированный список, всегда можно изменить тест-функцию, чтобы она возвращала противоположный результат (> заменить на <=, = заменить на /=, применить not к последнему выполняемому выражению лямбды-функции и т.д.). Если по какой-либо причине это затруднительно, можно реверсировать полученный список.

Похоже, что vl-sort(-i) не циклится при некорректной тест-функции (например, как в известной игре камень>ножницы>бумага>камень):
(vl-sort '(0 1 2 3) '/=) возвращает (3 2 1 0);
(vl-sort '(0 1 2 3) '=) возвращает (0 1 2 3).
Последний результат сортировки не логичен с точки зрения определения vl-sort.