Форум: "Прочее";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];
Вниз
расстановка ферзей Найти похожие ветки
← →
reteiktor (2008-12-09 20:34) [0]предлагается написать программу, расставляющую на поле 8 ферзей так, чтоб они друг-друга не атаковали. программа должна работать методом "проб-ошибок".
спасибо.
← →
Юрий Зотов © (2008-12-09 21:05) [1]Кому предлагается?
← →
palva © (2008-12-09 21:12) [2]Кому спасибо, тому и предлагается.
← →
DVM © (2008-12-09 21:16) [3]Цена не озвучена
← →
Хитрий Лис (2008-12-09 21:16) [4]Не стесняйтесь :) Огласите бюджет.
← →
TUser © (2008-12-09 21:29) [5]ну написал
пожалуйста
← →
Пробегал2.... (2008-12-09 21:47) [6]как умнО студент хочет свалить решение задачи со своих плеч.
Почти зачОт.
← →
antonn © (2008-12-09 22:36) [7]если кто то действительно захочет помочь автору:
http://forum.sources.ru/index.php?showtopic=259116
← →
DVM © (2008-12-09 22:41) [8]http://forum.sysman.ru/index.php?showtopic=11160&st=20
← →
oxffff © (2008-12-09 22:43) [9]http://en.wikipedia.org/wiki/Eight_queens_puzzle
http://www.math.utah.edu/~alfeld/queens/queens.html
← →
KilkennyCat © (2008-12-10 00:23) [10]http://lleo.aha.ru/na/
← →
Jeer © (2008-12-10 01:13) [11]Ой, сколько помошников :)
← →
korneley © (2008-12-10 01:25) [12]А... ссылочку куда идти, если НЕ хочу помочь?
← →
antonn © (2008-12-10 01:28) [13]
> korneley ©
вероятно нужна ссылка в [10], заботливо и по-дружески предоставленной одним из обитателей форума...
← →
korneley © (2008-12-10 01:33) [14]
> antonn © (10.12.08 01:28) [13]
> > korneley ©
давлю левую мышь, дрожащми пальцАми...:)
← →
Германн © (2008-12-10 01:38) [15]
> korneley © (10.12.08 01:33) [14]
>
>
> > antonn © (10.12.08 01:28) [13]
> > > korneley ©
>
> давлю левую мышь, дрожащми пальцАми...:)
>
Не надо её давить. Ей 40 лет. Пожалей несчастную. Её уже 40 лет давят!
← →
Илья Корстин © (2008-12-10 01:48) [16]Огого! Первый пост шикарен!
← →
korneley © (2008-12-10 01:48) [17]
> Германн © (10.12.08 01:38) [15]
Эта - выдержит. И клавиатура, кстати :))
← →
Mystic © (2008-12-10 12:17) [18]
solution(YList) :-
sol(YList,
[1, 2, 3, 4, 5, 6, 7, 8],
[1, 2, 3, 4, 5, 6, 7, 8],
[2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]).
sol([], [], Dy, Du, Dv).
sol([Y|YList], [X|Dx1], Dy, Du, Dv) :-
del(Y, Dy, Dy1),
U is X-Y,
del(U, Du, Du1),
V is X+Y,
del(V, Dv, Dv1),
sol(YList, Dx1, Dy1, Du1, Dv1).
del(Item, [Item|List], List).
del(Item, [First|List], [First|List1]) :-
del(ITem, List, List1).
?- solution(S).
← →
Ega23 © (2008-12-10 12:53) [19]
> предлагается написать программу, расставляющую на поле 8
> ферзей так, чтоб они друг-друга не атаковали. программа
> должна работать методом "проб-ошибок".
>
> спасибо.
Класс!
Наглость - вторая совесть.
З.Ы. А ведь чувак таки получит своё. Сейчас найдётся несколько "добрых" людей, которые напишут это дело за него (поделятся кодом). Не здесь - так на другом форуме. А потом в резюме он напишет "Аз есьмь программизд!" :(
← →
Anatoly Podgoretsky © (2008-12-10 14:08) [20]> Ega23 (10.12.2008 12:53:19) [19]
Обладаю опытом коммандной работы.
← →
keymaster © (2008-12-10 15:57) [21]По-моему, сабжевый велосипед изобретали уже бесчисленное количество раз...
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.006 c
