Поместится ли правильный треугольник со стороной A в окружность с радиусом R - Lisp

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

ПОМОГИТЕ мне записать на языке Common Lisp форму для вычисления , при определении функции использовать условное предложение COND. Входные переменные задаются либо с помощью функции SETQ, либо как аргументы определения функции; определение функции Y(a, r), выясняющей, поместится ли правильный треугольник со стороной а в круге радиусом r.

Решение задачи: «Поместится ли правильный треугольник со стороной A в окружность с радиусом R»

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

(defun Y (a r)
 (if (< (/ a r) 1.72)
      T
    (quote nil)))
 
>(Y 1000 662) ==>T
>(Y 1000 460) ==>nil

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

В данном коде определён функционал, который проверяет, помещается ли треугольник со стороной A в окружность с радиусом R. Функция называется Y, она принимает два аргумента — a и r. Если сторона треугольника (a) меньше или равна радиусу окружности (r) умноженному на 1.72 (предполагается, что это константа), то возвращается T, то есть true, треугольник помещается в окружность. В противном случае возвращается nil, то есть false, треугольник не помещается в окружность. Примеры использования функции:

(Y 1000 662) ==> T Треугольник со стороной 1000 помещается в окружность с радиусом 662, так как 1000 меньше чем 662*1.72.
(Y 1000 460) ==> nil Треугольник со стороной 1000 не помещается в окружность с радиусом 460, так как 1000 больше чем 460*1.72.