Micro Lisp. Основные понятия, структуры и функции. Яшин Л.З. - 39 стр.

                                        39

аргументов)
   ;Определим следующие функции:
   ;реализация для 2-х аргументов
   (define (funcall1 fn L)
         (apply fn (list L))
   )

   ;реализация для 3-х аргументов
   (define (funcall2 fn L1 L2)
         (apply fn (list L1 L2))
   )

   ;реализация для 4-х аргументов
   (define (funcall3 fn L1 L2 L3)
         (apply fn (list L1 L2 L3))
   )

Вычислите значения вызовов:

      a. (apply list ‘(a b))
    [1] (apply list '(a b))
    (A B)

      b. (funcall list ‘(a b))
    [2] (funcall1 list '(a b))
    ((A B))

      c. (funcall apply list ‘(a b))
    [3] (funcall2 apply list '(a b))
    (A B)

      d. (funcall list ‘apply ‘(a b))
    [4] (funcall2 list 'apply '(a b))
    (APPLY (A B))

Вычислите значения следующих функций:
         a. (mapcar list ‘(a b c))
    [5] (mapcar list '(a b c))
    ((A) (B) (C))

         b. (mapc list ‘(a b c))
    [6] (mapc list '(a b c))
    #T

Вычислите значения интеграла:

  ln x
           - подинтегральная функция
x 1 + ln x
_______________________________________________________________________________________
______


      (begin (newline)
            (display "                                    ln(x)   ")
            (newline)
            (display "Подинтегральная функция f(x) = -------------")
            (newline)
            (display "                                x [1+ln(x)] ")
            (newline))