http://www.lambda.ee/w/index.php?action=history&feed=atom&title=Ifi6057lab3demo2 2026-10-28T23:34:45Z Selle lehekülje redigeerimiste ajalugu MediaWiki 1.43.11 http://www.lambda.ee/w/index.php?title=Ifi6057lab3demo2&diff=12875&oldid=prev 2015-11-18T18:34:41Z

<p>Uus lehekülg: &#039;Pulkade mäng. Oletame, et hetkel on 11 pulka laual, siis küsitakse järgmist käiku nii: &lt;code&gt;take(X, 11).&lt;/code&gt;. move(1). move(2). move(3). % Y - pulkade arv laual he...&#039;</p> <p><b>Uus lehekülg</b></p><div>Pulkade mäng. Oletame, et hetkel on 11 pulka laual, siis küsitakse järgmist käiku nii: &lt;code&gt;take(X, 11).&lt;/code&gt;.<br /> <br /> move(1).<br /> move(2).<br /> move(3).<br /> <br /> % Y - pulkade arv laual hetkel<br /> take(X, Y):-<br /> iswin(X, Y).<br /> <br /> % kui võita pole võimalik, tuleb mingi käik ikka teha<br /> take(X, Y):-<br /> isloss(X, Y).<br /> <br /> iswin(X, Y):-<br /> move(X),<br /> Z is Y - X,<br /> Z &gt; 0,<br /> isloss(1, Z),<br /> isloss(2, Z),<br /> isloss(3, Z).<br /> <br /> isloss(X, Y):-<br /> move(X),<br /> Z is Y - X,<br /> Z &lt; 1.<br /> <br /> isloss(X, Y):-<br /> move(X),<br /> Z is Y - X,<br /> iswin(_, Z).</div>

PriitJ