Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 26.07.2013
Сообщений: 31

Метод поиска в ширину

07.11.2014, 21:40. Показов 3169. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, помогите пожалуйста написать программу на lisp, вот задание:


Используя метод поиска в ширину, найдите кратчайший путь от начальной до любой произвольной вершины связного неориентированного графа, заданного списками инцидентности (веса всех ребер примите равными единице).
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.11.2014, 21:40
Ответы с готовыми решениями:

Используя метод поиска в ширину, найти и вывести путь в ориентированном графе между двумя вершинами
Ребята день добрый. Задание у меня вот такое: Используя метод поиска в ширину, найти и вывести путь в ориентированном графе между...

Графы. Метод, отличающийся от поиска в ширину тем, что вновь достигнутая вершина помещается не в очередь, а в стек
Прошу помочь с Графами по поиску в глубину.... Задача такая: Напишите и используйте в программе процедуру, реализующую метод,...

Алгоритмы поиска кратчайших путей в ширину и двунаправленный в ширину
Реализовать алгоритм поиска кратчайшего пути. Двунаправленный поиск в ширину. Вот есть 2 алгоритма поиска в ширину. ...

6
4528 / 3522 / 358
Регистрация: 12.03.2013
Сообщений: 6,038
07.11.2014, 21:52
Ну. Какие вопросы?
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38161 / 21096 / 4306
Регистрация: 12.02.2012
Сообщений: 34,683
Записей в блоге: 14
07.11.2014, 22:16
Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
;; список вершин, связанных с данной и не посещенных
 
(defun getall (v graph chk) 
 (remove-if #'(lambda (z) (member z chk))
                 (mapcar #'(lambda (y) (if (eq (car y) v) (cadr y) (car y))) 
                        (remove-if-not #'(lambda (x) (member v x)) graph))))
 
;; обход в ширину с построением каркаса                       
                        
(defun bfs! (graph &optional (chk '(1)) (queue '(1)))
   (cond ((null queue) nil)
         (t (let ((n (getall (car queue) graph chk)))
                 (append (mapcar #'(lambda (x) (list (car queue) x)) n) (bfs! graph (append chk n) (append (cdr queue) n)))))))
 
;; найти путь в каркасе от вершины n1 до n2
                 
(defun spath (carc n1 n2 &optional (c carc) (r nil))
  (cond ((null carc) (raiseerror "Неверен номер вершины"))
        ((= n1 n2) r)
        ((= (cadar carc) n2) (spath c n1 (caar carc) c (cons (car carc) r)))
        (t (spath (cdr carc) n1 n2 c r)))) 
                        
;; ведущая программа   
   
(defun  task (graph n1 n2)
  (let ((carc (bfs! graph (list n1) (list n1))))
        (spath carc n1 n2)))
        
      
(task '((1 2) (1 3) (2 4) (2 5) (3 5) (3 6) (4 5) (5 6)) 2 6)
 
==> ((2 5) (5 6))
2
0 / 0 / 1
Регистрация: 26.07.2013
Сообщений: 31
07.11.2014, 22:26  [ТС]
Спасибулины=))))
0
07.11.2014, 22:27

Не по теме:

Ненавижу студентов.

0
07.11.2014, 22:30

Не по теме:

helter, простите... :sorry:

0
08.11.2014, 00:06

Не по теме:

helter, "Пройдите мимо нас и простите нам наше счастье" :D

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.11.2014, 00:06
Помогаю со студенческими работами здесь

Смоделировать работы алгоритмов поиска в ширину и поиска в глубину
Здравствуйте! Требуется помощь, имеется следующий граф, нужно смоделировать на нём работы алгоритмов поиска в ширину и поиска в глубину.

Разработать программы поиска в глубину и поиска в ширину при описании графа с помощью матрицы смежности
Ребят помогите, на носу экзамен. Дали задачу,для получения зачета. Весь мозг себе сломал, не как не знаю как её сделать. Прошу вашей...

Алгоритм поиска в ширину
Нашел алгоритм "поиска в ширину" только на С#. Может кто-нибудь переписать его на С? Random rand = new Random(); Queue<int> q =...

Алгоритм поиска в ширину
Всем привет. Мне нужно реализовать этот алгоритм на java. Пожалуйста подскажите, что нужно делать? Какой тип данных использовать, как...

Алгоритм поиска в ширину
Подскажите, пожалуйста, алгоритм поиска в ширину в неориентированном графе


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru