обработка списка

обработка списка · 25.11.2009, 13:38

как получить список вида

вход:

Код:

(("N"(список))
("A"(список))
("B"(список))
("E"(список))
("M"(список))
("N"(список))
("E"(список))
("M"(список))
("S"(список))
("G"(список))
("N"(список))
("1"(список))
("2.0"(список))
("N"(список))
("3.5"(список))
("2.0"(список))
("4.5"(список))
("13.8"(список)))

выход:создать выходный список (подсписки по ключу "N")
(("N"(список))("A"(список))("B"(список))("E"(список))("M"(список))
("N"(список))("E"(список))("M"(список))("S"(список))("G"(список))
("N"(список))("1"(список))("2.0"(список))
("N"(список))("3.5"(список))("2.0"(список))("4.5"(список))("13.8"(список)))

вот пример списка

входной список
(("N" (1 2 3 4 5 6 7 8))
  ("A" (0.00021 0.00013 0 0 0 0 0 0 0 0))
  ("V" (0.00018 0.00012 0 0 0 0 0 0 0 0))
  ("Y" (0.0001 0 0 0 0 0 0 0 0 0))
  ("Z" (0.00122	0.00091	0.00068	0.00051	0.00038	0.00029	0.00021	0.00016
		0.00012	0
	       )
  )
  ("C" (0.00035 0.00026 0.00019 0.00014 0.00011 0 0 0 0 0))
  ("Z" (0.00464	0.00345	0.00258	0.00193	0.00145	0.00109	0.00081	0.00061
		0.00045	0
	       )
  )
  ("N" (9 10 11 12 13))
  ("C" (0.00021 0.00013 0 0 0 0 0 0 0 0))
  ("D" (0.00018 0.00012 0 0 0 0 0 0 0 0))
  ("R" (0.0001 0 0 0 0 0 0 0 0 0))
  ("K" (0.00122	0.00091	0.00068	0.00051	0.00038	0.00029	0.00021	0.00016
		0.00012	0
	       )
  )
  ("F" (0.00035 0.00026 0.00019 0.00014 0.00011 0 0 0 0 0))
  ("T" (0.00464	0.00345	0.00258	0.00193	0.00145	0.00109	0.00081	0.00061
		0.00045	0
	       )
  )
)

выходной список
((("N" (1 2 3 4 5 6 7 8))
   ("A" (0.00021 0.00013 0 0 0 0 0 0 0 0))
   ("V" (0.00018 0.00012 0 0 0 0 0 0 0 0))
   ("Y" (0.0001 0 0 0 0 0 0 0 0 0))
   ("Z"	(0.00122 0.00091 0.00068 0.00051 0.00038 0.00029 0.00021 0.00016
		 0.00012 0
		)
   )
   ("C" (0.00035 0.00026 0.00019 0.00014 0.00011 0 0 0 0 0))
   ("Z"	(0.00464 0.00345 0.00258 0.00193 0.00145 0.00109 0.00081 0.00061
		 0.00045 0
		)
   )
 )
  (("N" (9 10 11 12 13))
    ("C" (0.00021 0.00013 0 0 0 0 0 0 0 0))
    ("D" (0.00018 0.00012 0 0 0 0 0 0 0 0))
    ("R" (0.0001 0 0 0 0 0 0 0 0 0))
    ("K" (0.00122 0.00091 0.00068 0.00051 0.00038 0.00029 0.00021
		  0.00016 0.00012 0
		 )
    )
    ("F" (0.00035 0.00026 0.00019 0.00014 0.00011 0 0 0 0 0))
    ("T" (0.00464 0.00345 0.00258 0.00193 0.00145 0.00109 0.00081
		  0.00061 0.00045 0
		 )
    )
  )
)

Елпанов Евгений · 25.11.2009, 14:27

можно так:

Код:

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

(defun f (l)
 (cond
  ((not l) nil)
  ((= (caar l) "N")
   (cons (cons (car l) (f (reverse (cdr (member (assoc "N" (cdr l)) (reverse (cdr l)))))))
         (member (assoc "N" (cdr l)) (cdr l))
   ) ;_  cons
  )
  ((cons (car l) (f (cdr l))))
 ) ;_  cond
)

Sleekka · 25.11.2009, 14:51

это жжжесть, по коду Евгения проще понять, что нужно было сделать чем по заданию в 1 посте, а должно быть наоборот.

Елпанов Евгений · 25.11.2009, 14:55

Цитата:

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

это жжжесть, по коду Евгения проще понять, что нужно было сделать чем по заданию в 1 посте, а должно быть наоборот.

у меня букв меньше?

Sleekka · 25.11.2009, 14:57

да + у тебя нет ошибок со скобками

Елпанов Евгений · 25.11.2009, 15:11

Цитата:

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

да + у тебя нет ошибок со скобками

перечитал задание, посмотрел скобки, кажется я неверно его понял...
Вот исправление:

Код:

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

(defun f (l)
 (cond ((not l) nil)
       ((= (caar l) "N")
        (cons (cons (car l)
                    (f (if (assoc "N" (cdr l))
                        (reverse (cdr (member (assoc "N" (cdr l)) (reverse (cdr l)))))
                        (cdr l)
                       ) ;_  if
                    ) ;_  f
              ) ;_  cons
              (f (member (assoc "N" (cdr l)) l))
        ) ;_  cons
       )
       ((cons (car l) (f (cdr l))))
 ) ;_  cond
)

А вообще странно, что автор не комментирует...

luser · 25.11.2009, 15:11

ТЕСТОВЫЙ СПИСОК:

Код:

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

 (setq	l
	 (list (list "N" (list 1 2 3 4 5 6 7 8))
	       (list "A" (list 0.00021 0.00013 0 0 0 0 0 0 0 0))
	       (list "V" (list 0.00018 0.00012 0 0 0 0 0 0 0 0))
	       (list "Y" (list 0.0001 0 0 0 0 0 0 0 0 0))
	       (list "Z"
		     (list 0.00122 0.00091 0.00068 0.00051 0.00038
			   0.00029 0.00021 0.00016 0.00012 0
			  )
	       )
	       (list "C"
		     (list 0.00035 0.00026 0.00019 0.00014 0.00011 0 0 0 0 0)
	       )
	       (list "Z"
		     (list 0.00464 0.00345 0.00258 0.00193 0.00145
			   0.00109 0.00081 0.00061 0.00045 0
			  )
	       )

	       (list "N" (list 9 10 11 12 13))
	       (list "C" (list 0.00021 0.00013 0 0 0 0 0 0 0 0))
	       (list "D" (list 0.00018 0.00012 0 0 0 0 0 0 0 0))
	       (list "R" (list 0.0001 0 0 0 0 0 0 0 0 0))
	       (list "K"
		     (list 0.00122 0.00091 0.00068 0.00051 0.00038
			   0.00029 0.00021 0.00016 0.00012 0
			  )
	       )
	       (list "F"
		     (list 0.00035 0.00026 0.00019 0.00014 0.00011 0 0 0 0 0)
	       )
	       (list "T"
		     (list 0.00464 0.00345 0.00258 0.00193 0.00145
			   0.00109 0.00081 0.00061 0.00045 0
			  )
	       )


	       (list "N" (list 25 36 89))
	       (list "0.2" (list 0.00021 0.00013 0 0 0 0 0 0 0 0))
	       (list "0.5" (list 0.00018 0.00012 0 0 0 0 0 0 0 0))
	       (list "1.58" (list 0.0001 0 0 0 0 0 0 0 0 0))
	       (list "r"
		     (list 0.00122 0.00091 0.00068 0.00051 0.00038
			   0.00029 0.00021 0.00016 0.00012 0
			  )
	       )
	       (list "n"
		     (list 0.00035 0.00026 0.00019 0.00014 0.00011 0 0 0 0 0)
	       )
	       (list "-0.25"
		     (list 0.00464 0.00345 0.00258 0.00193 0.00145
			   0.00109 0.00081 0.00061 0.00045 0
			  )
	       )




	 )
  )

Елпанов Евгений · 25.11.2009, 15:14

luser
1. почитай, как оформлять код на форуме...
2. проверь мой последний код, должно быть верно, если нет, убери из своего списка лишние цифры, оставь в списке только суть структуры.

luser · 25.11.2009, 15:17

[b]Евгений[b]
Спасибо огромное за помощь!
Пытаюсь осмыслить ваш код.

Елпанов Евгений · 25.11.2009, 15:23

luser, оформи тегами и остальные списки, но не забудь их отформатировать в лисп редакторе отступами! тогда будет все наглядно и понятно...

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

Кулик Алексей aka kpblc · 25.11.2009, 16:04

Елпанов Евгений, тэги расставлял я, а не luser.

luser · 27.11.2009, 14:15

Евгений
Ваша функция замечательно работает но небольших по размеру списка, а на больших списках выдает следующее сообщение:
"Hard error occurred *** internal stack limit reached (simulated)",можно ли как-то обойти эту проблему?
и еще просьба можно сделать эту функцию более универсальной, т.е на вход передавать
список и ключ по которому ведется обработка.

Кулик Алексей aka kpblc · 27.11.2009, 14:49

luser, http://forum.dwg.ru/showthread.php?t=43592 посмотри.

VVA · 27.11.2009, 20:57

Еще пару ссылок на эту тему
http://www.caduser.ru/forum/index.ph...D=23&TID=47549
http://www.theswamp.org/index.php?topic=24940.0

Sleekka · 28.11.2009, 22:21

Чтобы обойти нужно не использовать рекурсию а использовать обычный цикл.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Lisp: Обработка объектов и получение списка свойств (координаты точек)	Nanotronic	LISP	2	23.04.2009 23:07
структурированный список	Holon	Программирование	22	11.09.2007 14:09
Исключение элементов одного списка из другого по маске	Кулик Алексей aka kpblc	Программирование	3	18.09.2006 17:31
чтение данных из файла	Александер	Программирование	6	08.09.2005 10:24