[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 в списке.
Спасибо!

[CB]

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

Код:

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

[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: объясните что это за штука такая -  рекурсия

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

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

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

Код:

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

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

[CB]

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

Код:

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

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

Спасибо.

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

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

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

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

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