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)))
    (loop for x in sub
          collect (list x (if (find x list) t nil )) into belong
          finally (return (list belong (* 2 (length sub))))
          )
    )

;Вычисление длины списка разностей.
(defun sub-length (list)
    (list (length (first (sub list))) 1)
    )

;Вычисление минимальной разности.
(defun min-sub (list)
   (let (sub)) (setf sub (first (sub list)))
    (loop for x in sub
          counting x into complexity
          minimizing x into min
          finally (return (list min complexity))
          )
    )

(let (list)) (setf list (list 10 9 7 7 18 5 0 12 ))
(print (sub list))
(print (sub-belong list))
(print (sub-length list))
(print (min-sub list))

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