18, Common Lisp - rextester

Language: Layout:

;gnu clisp  2.49.60
#|
Использовать функции высших порядков при решении следующих задач:
    - из исходного списка сформировать список списков
    - из исходного списка сформировать список пар, где первый элемент каждой пары равен соответствующему элементу исходного списка, 
        а второй равен числу вхождений этого элемента в исходный список
    - из исходного списка сформировать список, в котором каждый элемент равен разности между соседними элементами исходного списка
     - из исходного списка сформировать список, в котором каждый элемент равен сумме соседних элементов исходного списка
    
|#

(defun list-of-lists (list)
    (loop for x in list
          collect (list x))
    )

(defun list-count (list)
    (loop for x in list
          collect (list x (count x list)))
    )

(defun sub (list)
    (let (len))
    (setf len (- (length list) 1))
    (when (eql len 0)
        (return-from sub list)
        )
    (loop for i from 1 to len
         collect (- (nth (- i 1) list) (nth i list))
     )
    
    )

(defun sum (list)
    (let (len))
    (setf len (- (length list) 1))
    (when (eql len 0)
        (return-from sub list)
        )
    (loop for i from 1 to len
         collect (+ (nth (- i 1) list) (nth i list))
     )
    
    )

(defun transform-list (fn list)
    (funcall fn list)
    )

(let (list))
(setf list '(1 2 3 3 3 4 5 5))
(print "Исходный список: ")
(print list)
(print "________________________________")
(print "Список списков")
(print (transform-list 'list-of-lists list))
(print "________________________________")
(print "список пар, где первый элемент каждой пары равен соответствующему элементу исходного списка, 
        а второй равен числу вхождений этого элемента в исходный список")
(print (transform-list 'list-count list))
(print "________________________________")
(print "список, в котором каждый элемент равен разности между соседними элементами исходного списка")
(print (transform-list 'sub list))
(print "________________________________")
(print "список, в котором каждый элемент равен сумме соседних элементов исходного списка")
(print (transform-list 'sum list))

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