1 В избранное 0 Ответвления 0

OSCHINA-MIRROR/perry96-SICP

Присоединиться к Gitlife
Откройте для себя и примите участие в публичных проектах с открытым исходным кодом с участием более 10 миллионов разработчиков. Приватные репозитории также полностью бесплатны :)
Присоединиться бесплатно
Клонировать/Скачать
quicksort.scm 334 Байты
Копировать Редактировать Web IDE Исходные данные Просмотреть построчно История
Perry961002 Отправлено 15.12.2018 10:12 e0e1fc9
(define (quicksort L)
(if (null? L)
'()
(let ((small (quicksort (filter (lambda (x) (<= x (car L)))
(cdr L))))
(big (quicksort (filter (lambda (x) (> x (car L)))
(cdr L)))))
(append small (cons (car L) big)))))

Опубликовать ( 0 )

Вы можете оставить комментарий после Вход в систему

1
https://api.gitlife.ru/oschina-mirror/perry96-SICP.git
git@api.gitlife.ru:oschina-mirror/perry96-SICP.git
oschina-mirror
perry96-SICP
perry96-SICP
master