Рекурсия - Lisp (229081)

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

Есть список элементов. Найти среднее значение элементов списка, разбить на 2 части слева меньшие среднего значения, справа большие среднего значения. Вот список: (1 2 3 4 5). Вот так должен выглядеть ответ: ((1 2) 3 (4 5). Помогите пожалуйста))

Решение задачи: «Рекурсия»

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

> (balance '(1 1 1 1 1 2))
((1 1 1 1 1) 7/6 (2))

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

Создается список из чисел и одной пары чисел в виде списка с кортежем.
Используется функция BALANCE, которая принимает два аргумента: список чисел и результат вычисления (список чисел и результат вычисления).
Результатом вычисления является список чисел и результат вычисления.
Результат вычисления равен 7/6.
Результат вычисления сохранен в переменной B.
Результат вычисления функции BALANCE сохранен в переменной RESULT.
Выводится значение переменной RESULT.