Написать функцию сортировки списка методом прямого выбора - Lisp - Ответ 3638970

;; вспомогательная функция min2
 
(defun min2 (x y) (if (< x y) x y))
 
==> min2
 
(min2 5 6)
 
==> 5
 
(min2 5 -6)
 
==> -6
 
;; распространение min2 на произвольное к-во чисел
 
(defun min! (x) (cond ((= (length x) 1) (car x))
                      ((= (length x) 2) (min2 (car x) (cadr x)))
                      (t (min2 (car x) (min! (cdr x))))))
 
==> min!
 
;; Удаление из списка первого вхождения атома 
 
(defun remove (x a) (cond ((null x) nil)
                          ((EQ a (car x)) (cdr x))
                          (t (cons (car x) (remove (cdr x) a))))) 
 
==> remove
 
(remove '(11 22 33 11 22 33) 33)
 
==> (11 22 11 22 33)
 
;; Сортировка выбором
 
(defun sort (x) (cond ((null x) nil)
                      (t (cons (min! x) (sort (remove x (min! x) ))))))
 
(sort '(1 2 -3 33 12))
 
==> (-3 1 2 12 33)

;; Вспомогательная функция сравнения структур
 
(defun equal (x y) (COND ((ATOM x) (EQ x y)) 
                                   ((ATOM y) NIL) 
                                   ((equal (CAR x) (CAR y)) (equal (CDR x) (CDR y))) (T NIL)))
 
==> equal
 
(equal '(1 2 3) '(1 2 3))
 
==> T
 
(defun isSublist(lst s) 
    (cond ((null lst) nil)
          ((atom (car lst)) (OR (equal (car lst) s) (isSublist (cdr lst) s))) 
          (t (OR (equal (car lst) s) (isSublist (car lst) s) (isSublist (cdr lst) s))))) 
 
==> isSublist
 
(isSublist '(1 2 3) 2)
 
==> T
 
(isSublist '(1 2 3) 7)
 
==> NIL
 
(isSublist '(1 2 (((7))) 3) 7)
 
==> T
 
(isSublist '(1 2 (((7))) 3) '(7))
 
==> T