Определить степень связности неориентированного графа - Lisp

Узнай цену своей работы

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

Доброго времени суток Необходимо определить степень связности неориентированного графа. Под степенью связности графа понимается некоторое число R, такое, что между любыми двумя узлами графа имеются не менее R путей. Честно говоря, с трудом представляю, как это должно выглядеть на Лиспе. Помогите, пожалуйста. Заранее спасибо.

Решение задачи: «Определить степень связности неориентированного графа»

textual
Листинг программы
(defun fact (n)
  (cond ((zerop n) 1)
          (t (* n (fact (- n 1))))))

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

В данном коде определён функционал для вычисления факториала числа.

  1. (defun fact (n) — определение функции с именем fact, которая принимает один аргумент n
  2. (cond ((zerop n) 1) — проверка условия. Если n равно нулю, то возвращается 1
  3. (t (* n (fact (- n 1)))) — если условие не выполнено, то происходит рекурсивный вызов функции fact с аргументом (-n 1) и результатом этого вызова умножается n
  4. В итоге, функция fact вычисляет факториал числа n.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы