[CB]

Подскажите пожалуйста как можно определить номера (индексы)
повторяющихся элементов списка. Например в списке
(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]

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

[CB]

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

[VVA]

Примерно так

Код:

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

(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]

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

[CB]

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

[CB]

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

[CB]

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

[Apelsinov]

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

Код:

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

(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]

Спасибо. Это тоже работает. Но точно также как предыдущий пример
от 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]

Вариант 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]

Или так

Код:

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

(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]

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

[Apelsinov]

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

[fixo]

А может проще через старый добрый 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]

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

[fixo]

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

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

~'J'~

[Елпанов Евгений]

А можно и так:

Код:

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

(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]

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

[Apelsinov]

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

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

CB

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

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