[===AAA===]

Всем привет!

Напомните, плиз.

Для решения задачи перегруппировки списка типа:

(("A" "123")("A" "124")("A" "ASD")("B" "456")("C" "FGH")("A" "QWE")("B" "333a"))

в список

(("A" "123" "124" "ASD" "QWE")("B" "456" "333a")("C" "FGH"))

стандартные функции есть или свою писать нужно?

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

Я бы писал свою. Штатных не помню.

[trir]

Offtop:

Я бы писал свою. Штатных не помню.

по этому я люблю C# - там есть Linq

[===AAA===]

Самое смешное, что мне кажется, я уже тоже когда-то очень давно писал свою.
Порылся, не нашёл. Ладно, не беда - снова напишу. :-)

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

Да ну, там максимум 10 строчек

[StupidDuck]

Код:

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

 (setq ll '(("A" "123") ("A" "124") ("A" "ASD") ("B" "456") ("C" "FGH") ("A" "QWE") ("B" "333a")) out nil)
(while ll
(setq 	temp (vl-remove-if '(lambda (x) (/= (car x) (caar ll))) ll)
      	ll (vl-remove-if '(lambda (x) (member x temp)) ll)
	out (cons (cons (caar temp) (append (mapcar 'cadr temp))) out)
	);setq
);while