расстановка ферзей

← →
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 лет давят!

Огого! Первый пост шикарен!

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).

> предлагается написать программу, расставляющую на поле 8
> ферзей так, чтоб они друг-друга не атаковали. программа
> должна работать методом "проб-ошибок".
>
> спасибо.

Класс!
Наглость - вторая совесть.

З.Ы. А ведь чувак таки получит своё. Сейчас найдётся несколько "добрых" людей, которые напишут это дело за него (поделятся кодом). Не здесь - так на другом форуме. А потом в резюме он напишет "Аз есьмь программизд!" :(

> Ega23 (10.12.2008 12:53:19) [19]

Обладаю опытом коммандной работы.

По-моему, сабжевый велосипед изобретали уже бесчисленное количество раз...

расстановка ферзей Найти похожие ветки