Вычислить значение выражения - Lisp

Формулировка задачи:

х вводим с клавиатуры Scheme/Racket

Решение задачи: «Вычислить значение выражения»

Листинг программы

(defun task nil
  (let* ((x (read))
         (cosx (cos (* 4.3 x)))
         (sinx (sin (abs (- x 9.5)))))
   (+ sinx (* cosx cosx))))
 
==> task
 
(task)
1.2
 
==> 1.08949905178183

Объяснение кода листинга программы

В данном коде:

Создаётся функция task с помощью команды defun.
В теле функции используется команда let* для создания трёх переменных: x, cosx и sinx.
Значение переменной x считывается с помощью команды read.
Переменная cosx получает значение тригонометрической функции cos от произведения числа 4.3 на значение переменной x.
Переменная sinx получает значение тригонометрической функции sin от абсолютного значения разности числа 9.5 и значения переменной x.
Значение переменной sinx умножается на значение переменной cosx.
Возвращается результат вычисления. Также в коде есть вызов функции task с аргументом 1.2, в результате чего возвращается значение 1.08949905178183.