14, Common Lisp - rextester

Language: Layout:

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

;Конкатенация двух упорядоченных по возрастанию списков так, чтоб
(defun concat (l1 l2)
    (let (i)) (setf i 0)
    (let (j)) (setf j 0)
    (let (k)) (setf k 0)
    (let (len1)) (setf len1 (length l1))
    (let (len2)) (setf len2 (length l2))
    (let (len)) (setf len (+  len1 len2))
    (let (conl)) (setf conl (list))
    (let (el1)) (let (el2))
    (let (complexity)) (setf complexity 0)
    (loop while (< k len)
          when (>= i len1)
               do (setf conl (nconc conl (subseq l2 j) )) and do (return  (list conl complexity))
          when (>= j len2)
               do (setf conl (nconc conl (subseq l1 i) )) and do (return  (list conl complexity))
          do (setf el1 (nth i l1))
          do (setf el2 (nth j l2))
          if (< el1 el2)
              do (setf conl (nconc conl (list el1) )) and
              do (incf i)
          else 
              do (setf conl (nconc conl (list el2) )) and
              do (incf j)
          do (incf k)
          do (setf complexity (+ complexity 11))
          )
    )

;Инверсия списка.
(defun inverse (list)
    (let (len)) (setf len (- (length list) 1))
    (loop for i from len downto 0
          collect (nth i list) into inv
          finally (return (list inv (+ len 1)))
          )
    )

(let (l1)) (setf l1 (list 0 2 4 6 7 8 9))
(let (l2)) (setf l2 (list 1 3 5 6 10))
(print (concat l1 l2))
(print (inverse l2))

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