(defun SORT_INSERT (L)
(cond
((null L) nil)
((null (cdr L)) L)
(T (INSERT (car L) (SORT_INSERT (cdr L))))))
(defun INSERT (E L)
(cond
((null L) (cons E nil))
((< E (car L)) (cons E L))
(T (cons (car L) (INSERT E (cdr L))))))
Опубликовал Kest
January 10 2010 15:09:09 ·
1 Комментариев ·
11819 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Денис September 22 2012 12:32:00
Спасибо огромное! Работают в скиме, для меня это новая среда и ваш код помог понять как строить сортировки в ней без использования циклов.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
