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)
)

(defun no-repeats (list)
    (let (new)) (setf new (list))
    (let (complexity)) (setf complexity 0)
    (loop while (not (null list))
              do (setf new (nconc new (list (first list))))
              do (setf list (remove (first list) list))
              do (setf complexity (+ complexity 9))
    )
    (list new complexity)
)

(let (list))
(setf list (list 1 1 2 3 3 4 4 4 5))
(print list)
(print (no-repeats list))

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