[WhiteShark]

Есть ли красивая реализация у кого нибудь функции которая возвращает весь список только без элемента за номером N?

[gomer]

А самому подумать?

[WhiteShark]

Да я то сделал вот такую... но мне не нравится

Код:

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

 (defun invNth (lst N / k newlst)
  (setq k 0)
  (if lst
    (progn
      (while lst
	(if (/= k N)
	  (setq newlst (append newlst (car lst)))
	  )
	(setq k (1+ k))
	(setq lst (cdr lst))
      )
    newlst
    )
  )
)

[gomer]

забыли list

Код:

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

 (setq newlst (append newlst (list (car lst))))

вообще рекурсивно это гораздо проще решается

[WhiteShark]

Ну я вот и чувствую что можно лучше.. но не могу сложить в кучу. Не подскажите как рекурсивно?

[gomer]

Код:

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

 (defun butnth (i lst)
  (if (zerop i)
    (cdr lst)
    (cons (car lst)
	  (butnth
	    (1- i)
	    (cdr lst)
	  )
    )
  )
)

Настоятельно рекомендую начать изучать рекурсию
ну и еще вопрос: нафига это надо?

[WhiteShark]

Спрашивали? Отвечаем :-)

Стоит задача по списку вида ((x1 y1 z1) (x2 y2 z2) ... ... ), содержащему наборы координат концов линий, определить образуют ли они замкнутый контур.
Ну и вообще, в принципе, как же получать список без какого то элемента? (vl-remove-if не подходит из за того что элемент не уникальный)

[VVA]

Looking for a faster version of delete_nth, insert_nth and switch_nth
Парочка функций из этой темы (там требутся регистрация)
http://forum.dwg.ru/showthread.php?p=676403#post676403
http://forum.dwg.ru/showthread.php?t=80369

[gomer]

Сообщение от WhiteShark Стоит задача по списку вида ((x1 y1 z1) (x2 y2 z2) ... ... )

Это список точек, а не отрезков

[WhiteShark]

Уважаемый gomer, я именно так ((x1 y1 z1) (x2 y2 z2) ... ... ) написал, чтоб было понятно, что каждый отрезок задан координатой начала и конца, идущими подряд. Задача проверить контур на незамкнутость весьма проста: список не будет содержать по два раза одни и те же координаты или будет нечетное количество элементов. Я пытаюсь решить задачу сложнее: попытаться составить из такого списка замкнутый контур (то есть еще и упорядочить его). Для чего нужно попробовать выстроить из данного набора координат цепочку, где каждая конечная координата одного отрезка соседствует с такой же начальной координатой следующего (ну а голова равна хвосту). Если цепочка выстроится, то контур замкнутый.

VVA, как всегда спасибо!

[Sleekka]

Есть ли красивая реализация у кого нибудь функции которая возвращает весь список только без элемента за номером N?

Красивая говоришь...
Может и не супер красивая, но зато быстрая.

Код:

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

 (defun remove-i (i lst)
      (setq i (1+ i))
      (vl-remove-if '(lambda (x) (zerop (setq i (1- i)))) lst)
    )

считается что первый список в листе - номер 0.

[Олег (jr.)]

Рекурсивненько тоже можно

Код:

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

;;fixo () 2013 * all rights released
(defun remove-by-index	 (lst idx)
  (if (car lst)
    (cons (vl-remove-if
	    '(lambda (a) (= (vl-position a (car lst)) idx))
	    (car lst))
	  (remove-by-index (cdr lst) idx))))

[WhiteShark]

Спасибо спасибо! С Nth уже понятно )
Намного более нетривиальная задачка - исходная (та, что в 10-ом посте). Если у кого мысли есть - скрывайте!

Если прям на пальцах то так: есть список

( (18 7 0) (23 59 0) (34 14 0) (18 7 0) (95 13 0) (34 14 0) (23 59 0) (95 13 0) )

надо получить из него

( (23 59 0) (95 13 0) (95 13 0) (34 14 0) (34 14 0) (18 7 0) (18 7 0) (23 59 0) )

[Олег (jr.)]

Сообщение от WhiteShark Если у кого мысли есть - скрывайте!

Поищи chain selection не помню где, склерозьм

[gomer]

см. #2

[CB]

Если прям на пальцах то так: есть список ( (18 7 0) (23 59 0) (34 14 0) (18 7 0) (95 13 0) (34 14 0) (23 59 0) (95 13 0) ) надо получить из него ( (23 59 0) (95 13 0) (95 13 0) (34 14 0) (34 14 0) (18 7 0) (18 7 0) (23 59 0) )

А почему не так?

Код:

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

 '( (23 59 0) (34 14 0) (34 14 0) (18 7 0) (18 7 0) (95 13 0) (95 13 0) (23 59 0)  ))
 '( (34 14 0) (18 7 0) (18 7 0) (95 13 0) (95 13 0) (23 59 0) (23 59 0) (34 14 0)))
 '( (18 7 0) (95 13 0) (95 13 0) (34 14 0) (34 14 0) (23 59 0) (23 59 0) (18 7 0) ))
 '( (18 7 0) (34 14 0) (34 14 0) (95 13 0) (95 13 0) (23 59 0) (23 59 0) (18 7 0) ))

[WhiteShark]

Олег (jr.), спасибо, попробую найти!
gomer, спасибо, я уже почти придумал ) просто есть непреодолимая тяга сделать всё так же красиво как вы
CB, первый, третий и четвертый списки неправильные потому, что в исходном списке элементы (подсписки) 1и2, 3и4 и т.д. образуют неразрывные пары, т.к. описывают начало и конец одного отрезка

[Sleekka]

WhiteShark, ничего не понятно какой тебе алгоритм нужен?

http://algolist.manual.ru/maths/geom...ull/graham.php
этот что-ли?

[VVA]

Сообщение от Олег (jr.) Поищи chain selection не помню где, склерозьм

Пробы пера были здесь
http://forum.dwg.ru/showthread.php?p=134515#post134515

[WhiteShark]

Чтоб не заругали модераторы, спрошу прямо тут. Почему моя функция как то странно работает? Это сдвиг списка влево до тех пор пока не встретится передаваемый аргумент. (ну случай что он не встретится вообще пока не знаю как учесть получше)

Код:

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

 
(defun lshift (elem lst  /)
       (cond ((= (car lst) elem) lst)
               (T (lshift (append  (cdr lst) (list (car lst)) )  elem))
       )
)

(lshift 3 '(1 2 3 4)) возвращает как и задумывалось (3 4 1 2), но

(lshift '(3) '((1) (2) (3) (4))) делает stack overflow
Подскажите в чем дело?