Форум программистов, компьютерный форум, киберфорум
Prolog
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Prolog задача о ферзях https://www.cyberforum.ru/ prolog/ thread1004883.html
Изменив, подходящим образом, предикат zheydy (attack), найдите все расстановки ферзей на шахматной доске размером , в которых ферзи стоят на разных вертикалях и горизонталях, и каждый из ферзей не бьет ферзей и в соседних вертикалях, и ферзей в соседних вертикалях с соседними. Программа /*************UAZIRLER****************/ DOMAINS...
Prolog Ферьзи
Организуйте интерфейс, таким образом, что пользователь введя размер шахматной доски и позицию ферзя в 1-й вертикале, мог получить все правильные расстановки ферзей, продолжающих начатую расстановку. Воспользуйтесь предикатом uazirler (queens) 3-х аргументов.Нужно реализовать только ЦЕЛЬ!!! КОД /*************UAZIRLER****************/ DOMAINS i=integer l=i* PREDICATES uazirler(l,i)...
Prolog Сума чисел в списке с подсписками https://www.cyberforum.ru/ prolog/ thread1004445.html
Помогите решить задачку: дан список, к примеру: ,1],1,1]. И нужно посчитать суму всех чисел. У меня получается только просто списка суму посчитать. summa(,0). summa(,Res):-summa(T,Res1), Res is Res1+H. Я уже как-то пробывала, но оно у меня выдает ошибку.. (одна из многих попыток =\) summa(,0). summa(|_],Res):-summa(H,Res). summa(,Res):-summa(T,Res1), Res is Res1+H....
Prolog Попарное слияние списков. Даны два списка парной длины. Написать предикат, который строит из них список такой структуры: сначала два элемента из первого списка, затем два элемента из второго списка, i так далее. Заранее большое спасибо! https://www.cyberforum.ru/ prolog/ thread1004006.html
Получить целое число из строки! Prolog
Получить целое число из строки, использующей числительные русского языка. Аргументы: строка; целое число. ?- pred(’Пять тысяч восемьсот одиннадцать’,X). X = 5811 yes ?- Работа должна быть на Swi prolog или Arity prolog. В прологе я ноль вообще. И вот как-то пока не получается ничего. Эта лаба меня уже достала, 2 дня вожусь с ней. Помогите пожалуйста.
Prolog Бинарные деревья. Количество вершин, которые не являются листьями https://www.cyberforum.ru/ prolog/ thread1003605.html
Добрый день, вынужден снова просить вас о помощи :( Нужно написать предикат, который возвращает количество вершин бинарного дерева, которые не являются его листьями и при этом имеют четные значения. Бинарное дерево задаю таким образом: t(6, t(3, t(8, nil, nil), nil), t(4, t(30, nil, nil), t(5, nil, nil) ) ) Должен получить в результате 2 (вершина 6 и вершина 4, остальные четные вершины в...
Prolog Prolog. Задача о верзях( NxN) Организуйте интерфейс, таким образом, что пользователь введя размер шахматной доски и позицию ферзя во 2-й вертикале справа, мог получить все правильные расстановки, завершающие начатую расстановку. Используйте предикат uazirler (queens) 2-х аргументов "uazirler(T,N)". Мне нужно ввести размер шахматной доски (например N=8) и позицию ферзя во 2-й вертикале справа(например 1). Ответ... https://www.cyberforum.ru/ prolog/ thread1003228.html Задача о коммивояжере. Гамильтонов путь в графе Prolog
Как можно переделать данное решение, чтобы найти гамильтонов путь в графе? Поиск кратчайшего пути не только из одной вершины в другую, а пути в ту вершину, из которой вышли. Реализация взята отсюда: https://www.cyberforum.ru/prolog/thread250609.html#post1426990 domains slist = string* way = w(integer, slist) ways = way* predicates
Prolog Найти вершины которые создают цикл Эйлера https://www.cyberforum.ru/ prolog/ thread1002633.html
Здравствуйте. Мне нужно создать программу, которая будет находить список вершин создающих цикл Эйлера. Программа должна работать с любым графом. Эйлеров цикл — это маршрут, проходящий по всем рёбрам графа по одному разу. Вот что у меня получилось: graph(). edge(X,Y,). edge(X,Y,). edge(X,Y,) :- edge(X,Y,T).
Prolog ПРИМЕНЕНИЕ СПИСКОВЫХ СТРУКТУР https://www.cyberforum.ru/ prolog/ thread1002477.html
Требуется запрограммировать поиск правильной расстановки 8 ферзей на шахматной доске, т.е. такой чтобы эти ферзи не били друг друга. С помощью предиката uazirler (queens) 2-х аргументов, найти все правильные расстановки ферзей на шахматной доске размером , в которых на 3-ей вертикале ферзи стоят на нечетных, а в 4-ой вертикале на четных горизонталях. ...
Prolog Задача о ферзях. Списковые структуры
Подскажите пожалуйста может кто знает? С помощью предиката queens 3-х аргументов, найдите все правильные расстановки ферзей на шахматной доске размером 8х8, в которых на первой вертикале справа стоит ферзь во 2-ой горизонтале. DOMAINS i=integer l=i* PREDICATES queens(l,l,l) zheydy(i,l,i) member(i,l) delete(i,l,l)
Prolog Определить отношение которое выполняется, если Х является энным элементом списка Список Доброго времени суток! Есть задание: (а) Используя отношение conc, напишите цель, соответствующую вычеркиванию трех последних элементов списка L, результат — новый список L1. Указание: L — конкатенация L1 и трехэлементного списка. (b) Напишите последовательность целей для порождения списка L2, получающегося из списка L вычеркиванием его трех первых и тр
Заблокирован
12.11.2013, 07:38 0

Дерево Prolog задача очень важно никто не смог сделать - Prolog - Ответ 5322559

12.11.2013, 07:38. Показов 579. Ответов 1
Метки (Все метки)

Ответ

Prolog
1
2
3
4
5
6
7
8
9
10
at(_, N, _):-
  N < 0, !, fail.
at(H, 0, [H|_]):-!.
at(R, N, [_|T]):-
  NN is N - 1, at(R, NN, T).
 
segment(N, L):-
    length(L, NN), N =\= NN - 1, !, fail; 
    for(I, 0, N), assert(tmp(I)), at(I, I, L), retract(tmp(I)), fail;
    tmp(_), !, fail;!.
Предикат for найдешь сам (at тоже мог бы сам найти, но обычно он чуть иначе работает - я изменил его чтобы индексация с нуля начиналась).

Вернуться к обсуждению:
Дерево Prolog задача очень важно никто не смог сделать Prolog
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2013, 07:38
Готовые ответы и решения:

Задача to encrypt php code чтобы никто не смог разгадать что внутри
Привет. Есть php код например function test(){ echo 'hello world'; } test(); Как можно...

Задача очень важно.Буду очень благодарен
Дано послідовність n-байт (символів) (n &lt; 100). Вывести окремо великі букви, окремо маленькі букви.

Важно: Рекурсия в Prolog
Напишите программу, которая передаёт ту же информацию, что и следующие факты и предложения для...

Вирус который смог(или очень подозрительная работа ПК)
Добрый день всем! У меня случилась беда с ПК. Перечисляю что именно и как пытался лечить: 1) При...

1
12.11.2013, 07:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2013, 07:38
Помогаю со студенческими работами здесь

Очень важно
Мне нужно сравнить два list L1 и L2 тип String. В программе должно сравнится если равен list если...

контрольная очень важно
Записать программу, содержащую класс по варианту. Переменные-члены и метод открыты,...

Сборка ПК (Очень важно)
Помогите пожалуйста собрать ПК (Очень срочно / Важно)! Нужен ПК для бухгалтера с RAID...

Очень важно, чесно!
Буквально седня посещал wowку утром, зайдя позже выдает сообщение: Runtime Error! Program:...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru