Xlisp. (Очень нужна помощь.), Нужно задачку решить, вроде ниче сложного, а вкупиться чет я не могу. Опции

[Men]

Задача: Напишите функцию, которая сортирует список чисел, используя алгоритм простой вставки.
-----
Написать как вы уже поняли, ее нужно на Лиспе.

Нужен не весь код, а алгоритм вставки одного элемента между двумя другими. Немогу понять, как его реализовать.

Кто может, прошу помочь.

[мисс_граффити]

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

(Defun Insert (el lst)
  (cond
	((null lst) (cons el nil))
	((>(car lst) el) (cons el lst))
	((AND (<(car lst) el)
	  (>(cadr lst) el))
	 (cons (car lst)
	   (cons el (cdr lst))))
	(T (cons (car lst) (Insert el (cdr lst))))))

то есть:
(insert '5 '(0 1 2 3 4 6))
(0 1 2 3 4 5 6)

тщательно не тестировала...
на паре тестов прогнала в автокаде - вроде работает.

[klem4]

прогнала в автокаде

AutoCad ?

[мисс_граффити]

именно...

"челябинские архитекторы так суровы, что даже бухгалтерию ведут в автокаде"(с) баш
мы что, хуже, что ли? ))

Сообщение отредактировано: мисс_граффити - 17.01.2008 1:18