18rec2, Common Lisp

Language: Layout:

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

(defun pairs (list)
    (cond
        ((null (rest list)) nil)
        (t (cons (list (first list) (second list)) (pairs (rest list))))
        )
    )

(let (list))
(setf list '(10 2 30 3 30 4 50))
(print "Исходный список: ")
(print list)
(print "________________________________")
(print "Список списков")
(print (mapcar #'(lambda (x) (list x)) list))
(print "________________________________")
(print "список пар, где первый элемент каждой пары равен соответствующему элементу исходного списка, 
        а второй равен числу вхождений этого элемента в исходный список")
(print (mapcar #'(lambda (x) (list x (count x list))) list))
(print "________________________________")
(print "список, в котором каждый элемент равен разности между соседними элементами исходного списка")
(print (mapcar #'(lambda (x) (- (first x) (second x))) (pairs list)))
(print "________________________________")
(print "список, в котором каждый элемент равен сумме соседних элементов исходного списка")
(print (mapcar #'(lambda (x) (+ (first x) (second x))) (pairs list)))

[ + ] Show input
Absolute running time: 0.17 sec, cpu time: 0.03 sec, memory peak: 9 Mb, absolute service time: 0,29 sec