The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]



Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Режим отображения отдельной подветви беседы [ Отслеживать ]

Оглавление

Языку программирования LISP исполнилось 60 лет, opennews (??), 20-Окт-18, (0) [смотреть все]

Сообщения [Сортировка по времени | RSS]


9. "Языку программирования LISP исполнилось 60 лет"  +/
Сообщение от Аноним (9), 20-Окт-18, 15:45 
(defun bubble-sort/naive (sequence)
  (let ((end (length sequence)))
    (labels ((compare-and-swap (index modified)
               (if (= index (1- end))
                   (if modified (compare-and-swap 0 nil) (values))
                   (let ((index+1 (1+ index)))
                     (if (> (elt sequence index) (elt sequence index+1))
                         (let ((x (elt sequence index)))
                           (setf (elt sequence index) (elt sequence index+1)
                                 (elt sequence index+1) x)
                           (compare-and-swap index+1 t))
                         (compare-and-swap index+1 modified))))))
      (unless (< end 2)
        (compare-and-swap 0 nil))
      sequence)))
Ответить | Правка | К родителю #3 | Наверх | Cообщить модератору

16. "Языку программирования LISP исполнилось 60 лет"  +/
Сообщение от КГБ СССР (?), 20-Окт-18, 17:29 
Что за вирус ты написал, анон? Твоя программа убивает Емакс!
Ответить | Правка | Наверх | Cообщить модератору

29. "Языку программирования LISP исполнилось 60 лет"  +/
Сообщение от Аноним (29), 20-Окт-18, 20:55 
Пожалуйста, хватит!
Ответить | Правка | К родителю #9 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру