https://wikiru.visual-prolog.com/index.php?action=history&feed=atom&title=%D0%98%D0%B3%D1%80%D0%B0_%22%D0%9F%D0%BE%D0%BB%D0%B7%D1%83%D0%BD%D0%BE%D0%BA%22._%D0%9C%D0%BE%D0%B4%D0%B5%D0%BB%D1%8C_Human 2026-05-19T12:00:32Z История изменений этой страницы в вики MediaWiki 1.37.1 https://wikiru.visual-prolog.com/index.php?title=%D0%98%D0%B3%D1%80%D0%B0_%22%D0%9F%D0%BE%D0%BB%D0%B7%D1%83%D0%BD%D0%BE%D0%BA%22._%D0%9C%D0%BE%D0%B4%D0%B5%D0%BB%D1%8C_Human&diff=1808&oldid=prev 2007-12-17T21:13:18Z

<p>Новая: Модель человека - участника игры &quot;Ползунок&quot;. &lt;vip&gt; /****************************************** Class human *****************************************...</p> <p><b>Новая страница</b></p><div>Модель человека - участника игры &quot;Ползунок&quot;.<br /> <br /> &lt;vip&gt;<br /> /******************************************<br /> Class human<br /> ******************************************/<br /> class human:player<br /> open core<br /> <br /> predicates<br /> getPlayerDescriptor:(game::language_D)-&gt;string Descriptor.<br /> <br /> end class human<br /> <br /> implement human<br /> open core<br /> <br /> facts<br /> name:string:=&quot;Hum_&quot;.<br /> <br /> clauses<br /> getPlayerDescriptor(game::en)=&quot;Human: Your strategy&quot;.<br /> getPlayerDescriptor(game::ru)=&quot;Человек: Ваша стратегия&quot;.<br /> <br /> clauses<br /> setName(ProposedId):-<br /> name:=string::format(&quot;%s%s&quot;,name,ProposedId),<br /> Name=humanInterface::getInput(humanInterface::playerName_S,name),<br /> if not(Name=&quot;&quot;) then<br /> name:=Name<br /> end if.<br /> <br /> clauses<br /> move():-<br /> InputString=humanInterface::getInput(humanInterface::playerStep_S),<br /> try<br /> juniourJudge::set(InputString)<br /> catch TraceID do<br /> handleException(TraceID),<br /> fail<br /> end try,<br /> !.<br /> move():-<br /> move().<br /> <br /> clauses<br /> announceWin():-<br /> humanInterface::announce(humanInterface::win_S,name).<br /> <br /> announceLoss():-<br /> humanInterface::announce(humanInterface::loss_S,name).<br /> <br /> class predicates<br /> handleException:(exception::traceId TraceID).<br /> clauses<br /> handleException(TraceID):-<br /> foreach Descriptor=exception::getDescriptor_nd(TraceID) do<br /> Descriptor = exception::descriptor(<br /> _ClassInfo1,<br /> _Descriptor,<br /> _Kind,<br /> ExtraInfo,<br /> _GMTTime,<br /> _ExceptionDescription,<br /> _ThreadId),<br /> if<br /> ExtraInfo=[namedValue(&quot;data&quot;,string(CellPointer))]<br /> then<br /> humanInterface::announce(humanInterface::errorWrongCell_S,CellPointer)<br /> else<br /> humanInterface::announce(humanInterface::error_S,&quot;&quot;)<br /> end if<br /> end foreach.<br /> <br /> end implement human<br /> &lt;/vip&gt;</div>

Victor Yukhtenko