[Yurec]

Доброго времени суток уважаемым форумчанам!

Прошу помощи в реализации на LISPе такой задачи:

Есть список вида ' ((a b) (c d) ... (x y)). Значения элементов - целочисленные. Надо упорядочить его по убыванию сначала по первым элементам вложеных списков ( а , c , ..х).
Затем, если в полученном списке есть совпадающие значения первых элементов, упорядочить все подмножества ( с одинаковыми первыми элементами) по убыванию вторых элементов.

Заранее - премного благодарен за любую помощь

[Ubivec81]

Disney,

Код:

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

 
	(setq start
	       (getint "\nВведите пикет начала кювета - "
	       )
	)
	(while (setq level
	          (getreal (strcat "\nВведите отметку ПК-"
	                   (itoa start)
	                   " :"
	               )
	          )
	       )
	  (setq r     (cons (list start level) r)
	    start (1+ start)
	  )
	)

Можно перевести как это работает! че то я не понимаю.....

[Disney]

Сообщение от Ubivec81 Можно перевести как это работает! че то я не понимаю.....

Вот, как мог расписал

Код:

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

 (setq start				     ;В переменную start записываем
       (getint				     ;введённое пользователя целое число
	 "\nВведите пикет начала кювета: "   ;служащее начальным пикетом
       ) ;_ _end_ofgetint
) ;_ _end_ofsetq
(while					     ;Пока
  (setq	level				     ;в переменную level будет записываться 
	 (getreal			     ;введённое пользователем вещественное число
	   (strcat			     ;на запрос собранный из 3 строк в одну:
	     "\nВведите отметку ПК-"	     ;первая строка
	     (itoa start)		     ;преобразовываем целое число(номер пикета) в строку
	     " :"			     ;третья строка
	   ) ;_ end of strcat
	 ) ;_ end of getreal
  ) ;_ end of setq
   (setq r				     ;в переменную r будем записывать
	       (cons			     ;список, полученный путём добавления в качестве первого элемента
		 (list start level)	     ;список, из двух элементов: 1-ый - номер пикета, 2-ой - отметка
		 r			     ;к ранее сформированному списку 
	       ) ;_ end of cons
	 start				     ;в переменную start записываем
	       (1+ start)		     ;номер следующего пикета
   ) ;_ end of setq
) ;_ end of while

[Ubivec81]

Disney, Еще раз спасибо! Такое решение я бы сам наверна не скоро додумал.... Вот только в нем не получится наверное если пикет будет не целый. Хотя я еще поразбираю это все!