18rec, Common Lisp

Language: Layout:

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

;из исходного списка сформировать список списков
(defun list-of-lists (list)
    (cond
        ((null list) nil)
        (t (cons (list (first list)) (list-of-lists (rest list))))
        )
    )

; из исходного списка сформировать список пар, где первый элемент каждой пары равен соответствующему элементу исходного списка, 
;        а второй равен числу вхождений этого элемента в исходный список
(defun list-count (list &optional (i 0))
    (cond
        ((>= i (length list)) nil)
        (t (cons (list (nth i list) (count (nth i list) list)) (list-count list (+ i 1))))
        )
    )

;из исходного списка сформировать список, в котором каждый элемент равен разности между соседними элементами исходного списка
(defun sub (list)
(cond
    ((null (rest list)) nil)
    (t (cons (- (first list) (second list)) (sub (rest 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 '(10 2 30 3 30 4 50 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.19 sec, cpu time: 0.03 sec, memory peak: 9 Mb, absolute service time: 0,27 sec