17rec, Common Lisp

Language: Layout:

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

(defun add (x y)
    (+ x y)
    )

(defun multiply (x y)
    (* x y)
    )

(defun make-pair (x y)
    (list x y)
    )

(defun main (list fn num)
   (cond
       ((null list) nil)
       (t (cons (funcall fn (first list) num) (main (rest list) fn num)))
       )
    )

(let (list))
(setf list '(1 2 3 4 5))
(let (num))
(setf num 10)
(print "Начальный список: ")
(print list)
(print "Заданное число:")
(print num)
(print "________________________________")
(print "Сложение")
(print (main list 'add num))
(print "________________________________")
(print "Умножение")
(print (main list 'multiply num))
(print "________________________________")
(print "Список пар")
(print (main list 'make-pair num))

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