12инд, Common Lisp

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)
    (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))
     )
    (if (eql j len) 
    (setf new (nconc new (last list)))
          )
            new

)

(let (list))
(setf list (list 1 2 3 4 5))
(print list)
(print (rearrangement list))

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