Поиск второго по величине элемента заданного списка - Lisp

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

Напишите функцию на языке Lisp для поиска второго по величине элемента заданного списка. может кто помочь?

Решение задачи: «Поиск второго по величине элемента заданного списка»

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

(define (fun data-lst (compare-fun? >))
  (let iter ((lst (rest data-lst))
             (high (first data-lst))
             (s-high (second data-lst)))
    (cond ((null? lst) s-high)
          ((compare-fun? (first lst) high) (iter (rest lst) (first lst) high))
          (else (iter (rest lst) high s-high)))))

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

В данном коде реализован алгоритм поиска второго по величине элемента в заданном списке. Вот его шаги:

Создаётся функция fun, которая принимает два аргумента: data-lst и compare-fun.
В функции fun происходит вызов функции let с тремя аргументами: lst, high и s-high.
В функции let происходит итерация по списку lst. При этом в качестве начального значения используется rest data-lst, а в качестве конечного значения — second data-lst.
В функции let также присутствует условие, которое проверяет, является ли список пустым. Если это так, то возвращается второй элемент списка, который сохраняется в переменной s-high.
Если условие не выполняется, то происходит рекурсивный вызов функции iter с обновлёнными значениями для lst, high и s-high.
В рекурсивном вызове функции iter проверяется, является ли первый элемент списка, который сохраняется в переменной first lst, больше значения переменной high. Если это так, то возвращается второй элемент списка, который сохраняется в переменной s-high.
Если условие не выполняется, то происходит ещё один рекурсивный вызов функции iter с обновлёнными значениями для lst, high и s-high.
В итоге, после завершения итерации по списку, в переменной s-high будет храниться второй по величине элемент списка.
В конце функции fun происходит возврат значения переменной s-high.