13, Common Lisp - rextester

Language: Layout:

#|
Используя стандартное представление списков, запрограммировать следующий предикаты для работы со списками. 
Каждый предикат должен вычислять сложность (число шагов, необходимых для вычисления) для  самого себя.
    1. Вычисление разности соседних четных элементов списка
    2. Проверка на принадлежность каждого элемента списка разностей исходному списку.
    3. Вычисление длины списка разностей.
    4. Вычисление минимальной разности.
    5. Вычисление произведений соседних элементов списка.
    6. Сортировка элементов списка произведений по убыванию.
    7. Сортировка элементов списка разностей по возрастанию
|#

(defun sub (list)
    (let (len)) (setf len  (length list))
    (when (< len 3) (return-from sub (nil 1)))
    (let (i)) (setf i 0)
    (let (j)) (setf j 2)
    (let (complexity)) (setf complexity 0)
     (loop while (< j len)
           collecting (- (nth i list) (nth j list)) into subs
           do (setf i (+ i 2))
           do (setf j (+ j 2))
           do (setf complexity (+ complexity 7))
           finally (return (list subs complexity))
    ) 
)

(defun sub-belong (list)
    (let (sub)) (setf sub (first (sub list)))
    (let (complexity)) (setf complexity 0)
    (loop for x in sub
          collect (list x (if (find x list) t nil ))
          )
    )
(let (list)) (setf list (list 10 9 8 7 6 5 0))
(print (sub list))
(print (sub-belong list))

[ + ] Show input
Absolute running time: 0.16 sec, cpu time: 0.02 sec, memory peak: 9 Mb, absolute service time: 0,22 sec