Конференция "Прочее" » расстановка ферзей [D7, XP]
 
  • reteiktor (09.12.08 20:34) [0]
    предлагается написать программу, расставляющую на поле 8 ферзей так, чтоб они друг-друга не атаковали. программа должна работать методом "проб-ошибок".

    спасибо.
  • Юрий Зотов © (09.12.08 21:05) [1]
    Кому предлагается?
  • palva © (09.12.08 21:12) [2]
    Кому спасибо, тому и предлагается.
  • DVM © (09.12.08 21:16) [3]
    Цена не озвучена
  • Хитрий Лис (09.12.08 21:16) [4]
    Не стесняйтесь :) Огласите бюджет.
  • TUser © (09.12.08 21:29) [5]
    ну написал

    пожалуйста
  • Пробегал2.... (09.12.08 21:47) [6]
    как умнО студент хочет свалить решение задачи со своих плеч.
    Почти зачОт.
  • antonn © (09.12.08 22:36) [7]
    если кто то действительно захочет помочь автору:
    http://forum.sources.ru/index.php?showtopic=259116
  • DVM © (09.12.08 22:41) [8]
  • oxffff © (09.12.08 22:43) [9]
  • KilkennyCat © (10.12.08 00:23) [10]
  • Jeer © (10.12.08 01:13) [11]
    Ой, сколько помошников :)
  • korneley © (10.12.08 01:25) [12]
    А... ссылочку куда идти, если НЕ хочу помочь?
  • antonn © (10.12.08 01:28) [13]

    > korneley ©  

    вероятно нужна ссылка в [10], заботливо и по-дружески предоставленной одним из обитателей форума...
  • korneley © (10.12.08 01:33) [14]

    > antonn ©   (10.12.08 01:28) [13]
    > > korneley ©  

    давлю левую мышь, дрожащми пальцАми...:)
  • Германн © (10.12.08 01:38) [15]

    > korneley ©   (10.12.08 01:33) [14]
    >
    >
    > > antonn ©   (10.12.08 01:28) [13]
    > > > korneley ©  
    >
    > давлю левую мышь, дрожащми пальцАми...:)
    >

    Не надо её давить. Ей 40 лет. Пожалей несчастную. Её уже 40 лет давят!
  • Илья Корстин © (10.12.08 01:48) [16]
    Огого! Первый пост шикарен!
  • korneley © (10.12.08 01:48) [17]

    > Германн ©   (10.12.08 01:38) [15]

    Эта - выдержит. И клавиатура, кстати :))
  • Mystic © (10.12.08 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 © (10.12.08 12:53) [19]

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


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

    З.Ы. А ведь чувак таки получит своё. Сейчас найдётся несколько "добрых" людей, которые напишут это дело за него (поделятся кодом). Не здесь - так на другом форуме. А потом в резюме он напишет "Аз есьмь программизд!"  :(
 
Конференция "Прочее" » расстановка ферзей [D7, XP]
Есть новые Нет новых   [134446   +39][b:0][p:0.002]