> 1 <

Автор Сообщение

Djon

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#394   2009-06-07 00:24 GMT+3 часа(ов)      
Вот задачка:

Дан список. Найти максимальный и минимальный элемент.Переставить min на первое место,а max на последнее.
Не использовать встроенные функции max и min.

Спасибо заранее!!!

FreeV

Members


Статус

52 сообщений

Где: Russia astral
Род занятий:
Возраст:

#396   2009-06-07 22:54 GMT+3 часа(ов)      
Довольно топорно, но в целом показывает красоту Лиспа
 
(defun qsort (list)
(if (null list) nil
(let* ((x (car list)) (r (cdr list)) (fn (lambda (a) (< a x))))
(append (qsort (remove-if-not fn r)) (list x)
(qsort (remove-if fn r))))))
 


Быстрая сортировка на Лиспе - это ж классика!
> 1 <


Онлайн :

0 пользователь(ей), 16 гость(ей) :




Реклама на сайте: