Как используя 5 и 9 литровые ведра набрать 3 литра воды. - Пролог.

[Serge_Bliznykov]

Сообщение от Сия

а с программным кодом мне уже помогли

а если не секрет и не сложно - опубликуйте здесь программу на Прологе, которая решает Вашу задачу...
охота полубопытствовать... ;-)

p.s. не забудьте, пожалуйста, код обрамить в тегами CODE

[Сия]

<code>

predicates
start(integer,integer,integer).
start2(integer,integer,integer).

clauses

start(X,Y,H):-X=3;Y=3.

start(X,Y,H):-Y=5,start2(X,H,0);Y<>5,start2(X,Y,0 ).

start2(X,Y,H):-Y=0,X>4,X1=X-5,write(X1),write(5),write("\n"),

start(X1,5,0);Y=0,X<5,write(9),writ e(X),write("\n"),start(9,X,0).

start2(X,Y,H):-Y<>0,X1=X-(5-Y),write(X1),write(5),write("\n"),s tart(X1,5,0).

</code>

программа оказалась проще чем я сначала думала, вот весь программный код, правдо чтобы при выводе было понятно что ку4да переливать нужно немножко дописать, а именно добавить текст в некоторые места, а основной код такой!!!