12, Common Lisp - rextester

Language: Layout:

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

(defun rearrangement (list)
    (let (new))
    (setf new (list))
    (let (len)) (setf len (length list) )
    (let (i)) (setf i 0)
    (let (j)) (setf j 1)
    (let (complexity)) (setf complexity 0)
    
    (loop while (< j len)
          do (setf new (nconc new (list (nth j list) (nth i list))))
          do (setf i (+ i 2))
          do (setf j (+ j 2))
          do (setf complexity (+ complexity 6))
     )
    (when (eql j len) 
    (setf new (nconc new (last list)))
     (setf complexity (+ complexity 3))
          )
            (list new complexity)

)

(defun not-belong (list el) 
    (let (complexity)) (setf complexity 0)   
    (loop for x in list
            do (setf complexity (+ complexity 1)) 
          if (eql x el)
                 do (return-from not-belong (list nil complexity))
             )
    (list t complexity)
)

(let (list))
(setf list (list 1 2 3 4 5))
(print list)
(print (not-belong list 3))

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