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)
   ; (let (result)) (setf result 
                                (loop while (< j len)
                                          collecting (- (nth j list) (nth i list)) into subs
                                          do (setf i (+ i 2))
                                          do (setf j (+ j 2))
                                          do (setf complexity (+ complexity 7))
                                      finally (return (list subs complexity))
                                ) ;)
    
        
)

(print (sub '(10 9 8 7 6 5)))

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