Номера позиций повторяющихся элементов списка

CB · 27.02.2006, 11:39

Подскажите пожалуйста как можно определить номера (индексы)
повторяющихся элементов списка. Например в списке
(49 52 46 50 53 130 128 131 130 128 130 131 130) элемент '130
повторяется 4 раза. Хотелось бы получить
(130 . (5 8 10 12)), где (5 8 10 12) номера элемента '130 в списке.
Спасибо!

asys · 27.02.2006, 11:47

смотря что за объект. Я делал так, если просто текст - команда QSELECT и выбор текста по содержимому (contents), если блок - то делаю имя чтоб по нему легче искать.

CB · 27.02.2006, 11:50

Не понял? Ни какого объекта нет - есть список из чисел.

VVA · 27.02.2006, 11:58

Примерно так

Код:

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

(setq lst_dat '(49 52 46 50 53 130 128 131 130 128 130 131 130))
(setq res nil i 0)
(mapcar (function
	 (lambda (x)
	   (if (setq buf (cadr (assoc x res)))
	     (setq res (subst (list x (append buf (list i)))
			      (assoc x res)
			      res
			      )
		   )
	     (setq res (append res (list(list x (list i)))))
	     )
	   (setq i (1+ i))
	   )
	 )
       lst_dat
       )
(princ "\nРезультат=")(princ res)

asys · 27.02.2006, 11:58

тогда я не въехал в тему

CB · 27.02.2006, 12:04

Спасибо. Сейчас проверю.

CB · 27.02.2006, 12:17

Да!!! Это то что нужно. Огромное спасибо за помощь.

CB · 27.02.2006, 12:46

Вопрос для VVA
А можно ли сделать, чтобы результатом функции
был не список (1 2 3 4 5 6 7 8 9 10), а список с индексами
интересующего меня элемента - например (130 (5 8 10 12)).
Я конечно понимаю, что в переменной res есть все что надо,
но все таки.

Apelsinov · 27.02.2006, 13:45

Вот пример еще:

Код:

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

(defun test (lst / a b lst2)
  (setq a -1)
  (setq lst2 (mapcar '(lambda (i) (cons (setq a (1+ a)) i)) lst))
  (mapcar
    '(lambda (b)
       (list b
	     (mapcar 'car
		     (VL-REMOVE-IF-NOT '(lambda (i) (eq (cdr i) b)) lst2)
	     )
       )
     )
    (vl-sort lst '>)
  )
)
;;;(test '(49 52 46 50 53 130 128 131 130 128 130 131 130))
;;;Вернет:((131 (7 11))
;;;      (130 (5 8 10 12))
;;;      (128 (6 9))
;;;      (53 (4))
;;;      (52 (1))
;;;      (50 (3))
;;;      (49 (0))
;;;      (46 (2))
;;;    )

CB · 27.02.2006, 14:18

Спасибо. Это тоже работает. Но точно также как предыдущий пример
от VVA. Сможет ли кто продолжить код, который я думаю
должен работать как мне надо? Заранее благодарю.

(setq lst '(49 52 46 50 53 130 128 131 130 128 130 131 130))
(mapcar '(lambda (X)
(foreach Y lst
(if X (list X ... (список с номерами элемента '130)
'(130)
)

VVA · 27.02.2006, 14:31

Вариант Apelsinov мне нравится больше.

Код:

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

(setq res (test '(49 52 46 50 53 130 128 131 130 128 130 131 130)))
(if (assoc 130 res)
  (progn
   (princ "\nИндексы элемента 130=")
   (princ (cadr (assoc 130 res)))
  )
  (princ "\nНет элемента")
)

VVA · 27.02.2006, 14:40

Или так

Код:

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

(defun index_el ( el  lst / a b lst2) 
  (setq a -1) 
  (setq lst2 (mapcar '(lambda (i) (cons (setq a (1+ a)) i)) lst))
  (assoc el
  (mapcar 
    '(lambda (b) 
       (list b 
        (mapcar 'car 
           (VL-REMOVE-IF-NOT '(lambda (i) (eq (cdr i) b)) lst2) 
        ))) 
    (vl-sort lst '>)))
)
;;;(index_el 130 '(49 52 46 50 53 130 128 131 130 128 130 131 130))
;;;Вернет (130 (5 8 10 12))
;;;(index_el 135 '(49 52 46 50 53 130 128 131 130 128 130 131 130))
;;;Вернет nil

CB · 27.02.2006, 15:01

Да это конечно классно!!!
Только я не пойму для чего используется (vl-sort lst '>) ?
Благодарю за помощь ВСЕХ!

Apelsinov · 27.02.2006, 15:14

CB
:roll: У этой функции vl-sort есть особенность - удаляются повторяющиеся элементы, для этого тут и используется. Может это и не очень правильно ее тут использовать, но работает ведь 8)

fixo · 27.02.2006, 15:33

А может проще через старый добрый FOREACH:

Код:

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

(defun list-pos (lst elem / cnt result)
(setq cnt 0)
(foreach item lst
  (if (equal elem item 0.00001)
  (setq result (cons cnt result)))
  (setq cnt (1+ cnt))
  (setq lst (reverse lst)))
(append (list elem)(list (reverse result)))
)
; TesT : (list-pos lst_dat 130)

~'J'~

CB · 27.02.2006, 15:52

Что то у меня после теста кода от Fatty возвращается
(130 nil), может что не так делаю?
Спасибо. RS: собственно самостоятельно я и хотел использовать
foreach, только не знал как.

fixo · 27.02.2006, 16:12

Цитата:

Сообщение от CB

Что то у меня после теста кода от Fatty возвращается
(130 nil), может что не так делаю?
Спасибо. RS: собственно самостоятельно я и хотел использовать
foreach, только не знал как.

Вместо LST написал LST_DAT, исправил...

~'J'~

Елпанов Евгений · 27.02.2006, 16:16

А можно и так:

Код:

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

(defun test (i lst n /)
  (cond
    ((not lst) nil)
    ((= (car lst) i) (cons n (test i (cdr lst) (1+ n))))
    (t(test i (cdr lst) (1+ n)))
  )
)

i = искомое значение
lst = тестируемый список
n = начиная с какого числа нумеровать позицию
Проверка

Код:

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

(test 130 '(49 52 46 50 53 130 128 131 130 128 130 131 130) 0)

CB · 27.02.2006, 16:52

Да... Информации для размышления столько, что не успеваю пере-
варивать. Практически одно и тоже, но сколько способов!
Последний код вообще меня поразил своей простотой
и отсутствием (setq...), да не обидятся на меня все те, кто помогал
мне со своими вариантами. Узнал я сегодня много, как классно что
есть ИНЕТ!!!
RS: Предыдущей темой от меня почему то народ не заинтересовался,
поэтому эта тема - как бы продолжение той.
Ведь чтобы разделить список на части по условию необходимо
знать номер позиции разделителя, ну а дальше(как мне кажется)
достаточно просто. В этой теме мне предложили много вариантов для дальнейшей работы. ОГРОМНОЕ ВСЕМ СПАСИБО!!!

Apelsinov · 27.02.2006, 17:24

Елпанов Евгений
Шедеврально!

Я вот тоже хотел рекурсию сварганить, но запутался вконец....а тут такая штука - БРАВО!

CB

Цитата:

Последний код вообще меня поразил своей простотой

в рекурсии простота кажущаяся.

CB · 27.02.2006, 18:03

А после небольшой доработки кода Елпанов Евгений
получилось вообще то что надо

Код:

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

[color=blue]setq lst '(49 52 46 50 53 130 128 131 130 128 130 131 130))

(mapcar '(lambda (X Y) 
(cons X (list
  (cond 
    ((not lst) nil) 
    ((= (car lst) X) (cons n (test X (cdr lst) (1+ Y)))) 
    (t (test X (cdr lst) (1+ Y))) 
  ) 
)
              )
               )
'(130 128) '(0 0)
)[/color]

Еще раз благодарю.
RS: объясните что это за штука такая -  рекурсия

Елпанов Евгений · 27.02.2006, 19:29

Цитата:

Сообщение от CB

А после небольшой доработки кода Елпанов Евгений

Раз уж меня начали дорабатывать, решил и сам выдать свой вариант...
PS.
>CB Твой вариант никогда не увидит первый элемент списка!

Код:

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

(mapcar(function(lambda (X)(list X (test X lst 0))))'(130 128))

CB · 28.02.2006, 09:23

Извините Евгений. Конечно же никто вас не собирался
"дорабатывать" . Просто поспешил , не разобравшись с кодом,
хотя к нужному результату пришел чуть позже, но слово не воробей...

Код:

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

(mapcar '(lambda (X) (cons X (list (test X win 0) ) ) ) '(130 128) )
[/i] [/quote]

Спасибо.

Елпанов Евгений · 28.02.2006, 09:26

Цитата:

Сообщение от CB

Предыдущей темой от меня почему то народ не заинтересовался,
поэтому эта тема - как бы продолжение той.

Ответил тебе в предыдущей теме

Кулик Алексей aka kpblc · 02.03.2006, 17:11

> СВ : Насчет рекурсии - см. http://www.autocad.ru/cgi-bin/f1/board.cgi?t=25113OT

27.02.2006, 11:39		#1
Номера позиций повторяющихся элементов списка CB Конструирование в области нефтеразведки Гомель Регистрация: 10.02.2006 Сообщений: 321 Подскажите пожалуйста как можно определить номера (индексы) повторяющихся элементов списка. Например в списке (49 52 46 50 53 130 128 131 130 128 130 131 130) элемент '130 повторяется 4 раза. Хотелось бы получить (130 . (5 8 10 12)), где (5 8 10 12) номера элемента '130 в списке. Спасибо!
Просмотров: 9342