[Apelsinov]

я очень извиняюсь, помогите, пожалуйста, вот вроде простая задачка, но не получается:

нужно список типа '((A 1) (A 2) (A 5) (B 6) (B 8) (C 4) (C 9)...)
превратить в ((A 8)) (B 14) (C 13)...)
где 8, 14 и 13 - суммы соответствующих вторых элементов подсписков.

голову уже сломал, все время получаются какие-то громоздкие конструкции, в которых я сам уже запутался...

[Kirill_Ja]

Да, плмню. Я раз 20 прогнал ее в пошаговом режиме прежде чем понял почему как она работает

[gomer]

Сообщение от Kirill_Ja Да, плмню. Я раз 20 прогнал ее в пошаговом режиме прежде чем понял почему как она работает

Ну все просто: берешь шашлык на шампуре и три шампура сверху, снимаешь мяско и нанизываешь на первый шампур, снимаешь помидорчик, нанизываешь на второй шампур. и так пока есть что снимать. потом помидорчики нанизываешь на третий шампур, потом мяско, в конце концом отдаешь третий шампур генацвале...

[WST]

Добрый день. Подыму тему.
Помогите пожалуйста, есть список (1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24 n)
нужно получить два списка:
1. ((2 3)(6 2)(21 4)) где вторые числа подсписка количество первых в исходном списке
2. ((10 11 12 13 14)(16 17 18 19)(22)(25 26 .... n-2 n-1)) недостающие числа в исходном списке

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

Тупо в лоб:

Код:

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

 (setq lst '(1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24)
      res nil
) ;_ end of setq

(foreach item lst
  (if (setq temp (assoc item res))
    (setq res (subst (cons item (1+ (cdr temp))) temp res))
    (setq res (cons (cons item 1) res))
  ) ;_ end of if
) ;_ end of foreach

(vl-remove-if-not (function (lambda (x) (= (cdr x) 1))) res)
(vl-remove-if (function (lambda (x) (= (cdr x) 1))) res)

[WST]

Сообщение от Кулик Алексей aka kpblc Тупо в лоб: Код: [Выделить все] (setq lst '(1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24) res nil ) ;_ end of setq (foreach item lst (if (setq temp (assoc item res)) (setq res (subst (cons item (1+ (cdr temp))) temp res)) (setq res (cons (cons item 1) res)) ) ;_ end of if ) ;_ end of foreach (vl-remove-if-not (function (lambda (x) (= (cdr x) 1))) res) (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res)

Кулик Алексей aka kpblc спасибо огромное за помощь, первый список получили все как просил, а со вторым как быть?

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

Две последние строчки как раз и возвращают просимое: одна - один список, вторая - второй. ПРисваивай своим переменным и вперед ))

[WST]

Сообщение от Кулик Алексей aka kpblc Две последние строчки как раз и возвращают просимое: одна - один список, вторая - второй. ПРисваивай своим переменным и вперед ))

Присвоил и вот что получаем
(setq lst1(vl-remove-if-not (function (lambda (x) (= (cdr x) 1))) res)
lst2(vl-remove-if (function (lambda (x) (= (cdr x) 1))) res)
)

Command: !lst
(1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24)

Command: (reverse lst1)
((1 . 1) (3 . 1) (4 . 1) (5 . 1) (7 . 1) (8 . 1) (9 . 1) (15 . 1) (20 . 1) (23 . 1) (24 . 1))

Command: (reverse lst2)
((2 . 3) (6 . 2) (21 . 4))

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

Ну и ?

[WST]

Сообщение от WST 1. ((2 3)(6 2)(21 4)) где вторые числа подсписка количество первых в исходном списке 2. ((10 11 12 13 14)(16 17 18 19)(22)(25 26 .... n-2 n-1)) недостающие числа в исходном списке

первый тот
второй не тот

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

(mapcar (function car) (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <))

[WST]

Сообщение от Кулик Алексей aka kpblc (mapcar (function car) (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <))

Command: !res
((24 . 1) (23 . 1) (21 . 4) (20 . 1) (15 . 1) (9 . 1) (8 . 1) (7 . 1) (6 . 2) (5 . 1) (4 . 1) (3 . 1) (2 . 3) (1 . 1))

Command: (mapcar (function car) (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <))
(_> )
bad argument type: VLA-OBJECT nil

Command: (mapcar (function car) (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <)))
bad argument type: VLA-OBJECT nil

скобки не хватает может я не там ее поставил?

Command: (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res)
((21 . 4) (6 . 2) (2 . 3))

Command: (vl-sort (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res) (function <))
bad argument type: VLA-OBJECT nil

что то не так

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

Код:

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

 (setq lst '(1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24)
      res nil
) ;_ end of setq

(foreach item lst
  (if (setq temp (assoc item res))
    (setq res (subst (cons item (1+ (cdr temp))) temp res))
    (setq res (cons (cons item 1) res))
  ) ;_ end of if
) ;_ end of foreach

(setq lst1 (mapcar (function car) (vl-remove-if-not (function (lambda (x) (= (cdr x) 1))) res))
      lst2 (vl-remove-if (function (lambda (x) (= (cdr x) 1))) res)
) ;_ end of setq

[koMon]

только для целых чисел

Код:

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

 (setq _list '(1 2 2 2 3 4 5 6 6 7 8 9 15 20 21 21 21 21 23 24))
(setq index 0 list_1 nil list_2 nil _list_i_s (vl-sort-i _list '<) _list_i (vl-sort (vl-sort-i _list '<) '<))
(while (/= index (length _list))
	(if (/= (nth index _list_i_s) (nth index _list_i))
		(setq list_1 (append list_1 (list (list (nth index _list) (1+ (- (nth index _list_i_s) (nth index _list_i))))))
			  index (+ index (1+ (- (nth index _list_i_s) (nth index _list_i))))
		)
		(setq index (1+ index))
	)
)
(setq index 0 _list_s (vl-sort _list '<))
(while (/= index (1- (length _list_s)))
	(if (/= (nth (1+ index) _list_s) (1+ (nth index _list_s)))
		(progn
			(setq missed_list nil)
			(repeat (1- (- (nth (1+ index) _list_s) (setq missed (nth index _list_s))))
				(setq missed_list (append missed_list (list (setq missed (1+ missed)))))
			)
			(setq list_2 (append list_2 (list missed_list)))
		)
	)
	(setq index (1+ index))
)
(print list_1)
(print list_2)

[WST]

Кулик Алексей aka kpblc, Спасибо
koMon, Спасибо то что нужно, только для целых и надо