Учебный Проект. Релиз 7. Класс GenericComputer - История изменений

Victor Yukhtenko в 16:20, 28 марта 2011

2011-03-28T16:20:15Z

← Предыдущая		Версия 18:20, 28 марта 2011
Строка 2:		Строка 2:
	<vip>		<vip>
	/******************************************************		/******************************************************
	Copyright (c) ~~2007 Prolog Development Center SPb~~		Copyright (c) Victor Yukhtenko
	~~Written by:~~ Victor Yukhtenko
	*******************************************************/		*******************************************************/

Victor Yukhtenko: /* Ссылки */

2009-10-05T12:01:46Z

Ссылки

← Предыдущая		Версия 14:01, 5 октября 2009
Строка 102:		Строка 102:
	end implement genericComputer		end implement genericComputer
	</vip>		</vip>
	~~==Ссылки==~~
	~~[[Category:Проекты]]~~
	~~[[Category:Игры]]~~

Victor Yukhtenko в 20:50, 3 октября 2009

2009-10-03T20:50:52Z

← Предыдущая		Версия 22:50, 3 октября 2009
Строка 1:		Строка 1:
	{{~~Ползунок7~~}}		{{Учебный Проект. Релиз 7}}
	<vip>		<vip>
	/******************************************************		/******************************************************

Victor Yukhtenko: «Ползунок7. Класс GenericComputer» переименована в «Учебный Проект. Релиз 7. Класс GenericComputer»

2009-10-03T20:28:25Z

«Ползунок7. Класс GenericComputer» переименована в «Учебный Проект. Релиз 7. Класс GenericComputer»

← Предыдущая	Версия 22:28, 3 октября 2009
(нет различий)

Victor Yukhtenko: /* Ссылки */

2009-10-03T20:27:37Z

Ссылки

← Предыдущая		Версия 22:27, 3 октября 2009
Строка 103:		Строка 103:
	</vip>		</vip>
	==Ссылки==		==Ссылки==
	[[Category:~~Примеры~~]]		[[Category:Проекты]]
	[[Category:Игры]]		[[Category:Игры]]

Victor Yukhtenko: /* Ссылки */

2007-12-22T19:02:50Z

Ссылки

← Предыдущая		Версия 21:02, 22 декабря 2007
Строка 102:		Строка 102:
	end implement genericComputer		end implement genericComputer
	</vip>		</vip>
	=Ссылки=		==Ссылки==
	[[Category:~~Задачи~~]]		[[Category:Примеры]]
	[[Category:Игры]]		[[Category:Игры]]

Victor Yukhtenko в 08:44, 18 декабря 2007

2007-12-18T08:44:12Z

← Предыдущая		Версия 10:44, 18 декабря 2007
Строка 102:		Строка 102:
	end implement genericComputer		end implement genericComputer
	</vip>		</vip>
			=Ссылки=
			[[Category:Задачи]]
			[[Category:Игры]]

Victor Yukhtenko в 08:25, 18 декабря 2007

2007-12-18T08:25:50Z

← Предыдущая		Версия 10:25, 18 декабря 2007
Строка 1:		Строка 1:
	{{Ползунок7}}		{{Ползунок7}}
	<vip>		<vip>
			/******************************************************
			Copyright (c) 2007 Prolog Development Center SPb
			Written by: Victor Yukhtenko
			*******************************************************/

	/******************************************		/******************************************
	Interface polylineStrategy		Interface polylineStrategy

Victor Yukhtenko в 08:07, 18 декабря 2007

2007-12-18T08:07:27Z

@@ Строка 1: / Строка 1: @@
 {{Ползунок7}}
 <vip>
 /************************
    Class GenericComputer

Victor Yukhtenko в 08:05, 18 декабря 2007

2007-12-18T08:05:01Z

← Предыдущая		Версия 10:05, 18 декабря 2007
Строка 1:		Строка 1:
	{{Ползунок7}}		{{Ползунок7}}
			<vip>
			/************************
			Class GenericComputer
			************************/
			interface genericComputer
			supports player
			supports polylineStrategy

			predicates
			setpolylineStrategy:(polylineStrategy).
			stepCandidate: (juniourJudge::cell,juniourJudge::cell [out],juniourJudge::cell [out]) nondeterm.

			end interface genericComputer

			class genericComputer:genericComputer
			open core, exception

			end class genericComputer

			implement genericComputer
			delegate interface polylineStrategy to polylineStrategy_V

			open core

			facts
			name:string:="Cmp_".
			polylineStrategy_V:polylineStrategy:=erroneous.

			clauses
			setName(ProposedId):-
			name:=string::format("%s%s",name,ProposedId),
			Name=humanInterface::getInput(humanInterface::playerName_S,name),
			if not(Name="") then
			name:=Name
			end if.

			clauses
			setpolylineStrategy(PolylineStrategyObject):-
			polylineStrategy_V:=PolylineStrategyObject,
			polylineStrategy_V:setGenericComputer(This).

			clauses
			move():-
			humanInterface::announce(humanInterface::thinker_S,name),
			Cell=resolveStep(),
			try
			juniourJudge::set(toString(Cell))
			catch _Trace_D do
			humanInterface::announce(humanInterface::error_S,"Internal Error in the computerStrategy\n"),
			humanInterface::waitOk()
			end try.

			predicates
			resolveStep:()->juniourJudge::cell.
			clauses
			resolveStep()=Cell:-
			Cell=successfulStep(juniourJudge::polyline_P),
			!.
			resolveStep()=Cell:-
			Cell=randomStep(),
			!.
			resolveStep()=juniourJudge::c(X+1,Y+1):-
			X=math::random(juniourJudge::maxColumn_P-1),
			Y=math::random(juniourJudge::maxRow_P-1).

			clauses
			stepCandidate([Cell],[Cell,NewCell], NewCell):-
			juniourJudge::neighbour_nd(Cell, NewCell).
			stepCandidate([Left, RestrictingCell \| PolyLine],[NewCell,Left, RestrictingCell\| PolyLine], NewCell):-
			NewCell=juniourJudge::neighbourOutOfPolyLine_nd(Left,RestrictingCell).
			stepCandidate(PolyLine,list::reverse([NewCell,Left, RestrictingCell \|PolyLineTail]),NewCell):-
			[Left, RestrictingCell \|PolyLineTail] = list::reverse(PolyLine),
			NewCell=juniourJudge::neighbourOutOfPolyLine_nd(Left,RestrictingCell).

			clauses
			announceWin():-
			humanInterface::announce(humanInterface::win_S,name).

			clauses
			announceLoss():-
			humanInterface::announce(humanInterface::loss_S,name).

			end implement genericComputer
			</vip>