Tutorial Project. Release 7. Class Computer2 - Revision history

Thomas Linder Puls: classInfo

2013-05-06T13:44:53Z

classInfo

← Older revision		Revision as of 15:44, 6 May 2013
Line 35:		Line 35:
	class polylineStrategy2:polylineStrategy		class polylineStrategy2:polylineStrategy
	open core		open core
	~~predicates~~
	~~classInfo : core::classInfo.~~

	constants		constants
	playerDescriptorEn_C="Computer2: Limited Depth. Despair move - random".		playerDescriptorEn_C="Computer2: Limited Depth. Despair move - random".
Line 46:		Line 43:
	implement polylineStrategy2		implement polylineStrategy2
	open core, exception		open core, exception

	~~constants~~
	~~className = "polylineStrategy2".~~
	~~classVersion = "1.0".~~

	~~clauses~~
	~~classInfo(className, classVersion).~~

	facts		facts

Victor Yukhtenko at 13:43, 1 April 2011

2011-04-01T13:43:50Z

← Older revision		Revision as of 15:43, 1 April 2011
Line 2:		Line 2:
	<vip>		<vip>
	/******************************************		/******************************************
	~~Copyright (c) Victor Yukhtenko~~		Class computer2

	~~Copyright (c)~~ Elena Efimova		Predicate SuccessfullStep implementation
	~~Predicate successfulStep~~		written by Elena Efimova

	~~Class computer2~~
	******************************************/		******************************************/
	class computer2:player		class computer2:player

Victor Yukhtenko at 16:42, 28 March 2011

2011-03-28T16:42:14Z

← Older revision		Revision as of 18:42, 28 March 2011
Line 2:		Line 2:
	<vip>		<vip>
	/******************************************		/******************************************
	~~Tested with Vip7.3~~		Copyright (c) Victor Yukhtenko
	Copyright (c) ~~2007-2010~~ Victor Yukhtenko

	Copyright (c) ~~2007-2010~~ Elena Efimova		Copyright (c) Elena Efimova
	Predicate successfulStep		Predicate successfulStep

	~~Written by: Victor Yukhtenko~~

	Class computer2		Class computer2

Victor Yukhtenko at 06:05, 5 June 2010

2010-06-05T06:05:15Z

← Older revision		Revision as of 08:05, 5 June 2010
Line 1:		Line 1:
	{{Tutorial Project. Release 7. Players}}		{{Tutorial Project. Release 7. Players}}
	<vip>		<vip>
	/~~********~~****************************************		/******************************************
	Copyright (c) 2007~~,2008.~~ Elena Efimova		Tested with Vip7.3
			Copyright (c) 2007-2010 Victor Yukhtenko

			Copyright (c) 2007-2010 Elena Efimova
	Predicate successfulStep		Predicate successfulStep

	~~Copyright (c) 2007,2008. Prolog Development Center~~
	Written by: Victor Yukhtenko		Written by: Victor Yukhtenko

	Class computer2		Class computer2
	~~*********~~****************************************/		******************************************/
	class computer2:player		class computer2:player
	open core		open core

	predicates		predicates
	getPlayerDescriptor:(game::language_D)->string Descriptor.		getPlayerDescriptor:(game::language_D)->string Descriptor.
Line 26:		Line 28:
	PolyLineBraneObj=polylineStrategy2::new(),		PolyLineBraneObj=polylineStrategy2::new(),
	setpolylineStrategy(PolyLineBraneObj).		setpolylineStrategy(PolyLineBraneObj).

	clauses		clauses
	getPlayerDescriptor(game::en)=polylineStrategy2::playerDescriptorEn_C.		getPlayerDescriptor(game::en)=polylineStrategy2::playerDescriptorEn_C.
Line 43:		Line 45:
	constants		constants
	playerDescriptorEn_C="Computer2: Limited Depth. Despair move - random".		playerDescriptorEn_C="Computer2: Limited Depth. Despair move - random".
	playerDescriptorRu_C="Computer2: Ограниченная глубина. Ход ~~очаяния~~ - случайный".		playerDescriptorRu_C="Computer2: Ограниченная глубина. Ход отчаяния - случайный".

	end class polylineStrategy2		end class polylineStrategy2
Line 101:		Line 103:
	genericComputer_V:stepCandidate(PolyLine, PolyLine1,Cell),		genericComputer_V:stepCandidate(PolyLine, PolyLine1,Cell),
	not(_=successfulStep(Counter-1,PolyLine1)).		not(_=successfulStep(Counter-1,PolyLine1)).

	class predicates		class predicates
	isStepSuccessful:(integer Counter,juniourJudge::cell* PolyLine,juniourJudge::cell BestMove) determ.		isStepSuccessful:(integer Counter,juniourJudge::cell* PolyLine,juniourJudge::cell BestMove) determ.
Line 110:		Line 112:
	isStepSuccessful(Counter,_PolyLine,_BestMove):-		isStepSuccessful(Counter,_PolyLine,_BestMove):-
	Counter<=1.		Counter<=1.

	clauses		clauses
	randomStep()=Cell:-		randomStep()=Cell:-
Line 119:		Line 121:
	ChoiceNo=math::random(NoOfVariants-1),		ChoiceNo=math::random(NoOfVariants-1),
	Cell=list::nth(ChoiceNo+1,CellCandidateList).		Cell=list::nth(ChoiceNo+1,CellCandidateList).

	end implement polylineStrategy2		end implement polylineStrategy2
	</vip>		</vip>

Victor Yukhtenko at 13:28, 22 October 2009

2009-10-22T13:28:42Z

← Older revision		Revision as of 15:28, 22 October 2009
Line 1:		Line 1:
	{{~~PolyLine7~~.Players}}		{{Tutorial Project. Release 7. Players}}

	<vip>		<vip>
	/****************************************************		/****************************************************

Victor Yukhtenko: Polyline7. Class Computer2 moved to Tutorial Project. Release 7. Class Computer2

2009-10-22T13:22:54Z

Polyline7. Class Computer2 moved to Tutorial Project. Release 7. Class Computer2

← Older revision	Revision as of 15:22, 22 October 2009
(No difference)

Victor Yukhtenko at 19:57, 3 November 2008

2008-11-03T19:57:17Z

← Older revision		Revision as of 21:57, 3 November 2008
Line 125:		Line 125:
	==References==		==References==
	[[ru:Ползунок7. Класс Computer2]]		[[ru:Ползунок7. Класс Computer2]]
	[[Category:PolyLine Evolutions~~/Release 7/Code~~]]		[[Category:PolyLine Evolutions]]

Thomas Linder Puls: Categorized

2008-10-29T20:27:42Z

Categorized

← Older revision		Revision as of 22:27, 29 October 2008
Line 125:		Line 125:
	==References==		==References==
	[[ru:Ползунок7. Класс Computer2]]		[[ru:Ползунок7. Класс Computer2]]
	[[Category:PolyLine Evolutions]]		[[Category:PolyLine Evolutions/Release 7/Code]]

Victor Yukhtenko at 17:53, 3 February 2008

2008-02-03T17:53:01Z

← Older revision		Revision as of 19:53, 3 February 2008
Line 123:		Line 123:
	end implement polylineStrategy2		end implement polylineStrategy2
	</vip>		</vip>
			==References==
	[[ru:Ползунок7. Класс Computer2]]		[[ru:Ползунок7. Класс Computer2]]
	[[Category:~~Examples]]~~		[[Category:PolyLine Evolutions]]
	~~[[Category:Games 1+~~]]

Thomas Linder Puls: categorized

2008-01-19T22:10:05Z

categorized

← Older revision		Revision as of 00:10, 20 January 2008
Line 126:		Line 126:
	[[ru:Ползунок7. Класс Computer2]]		[[ru:Ползунок7. Класс Computer2]]
	[[Category:Examples]]		[[Category:Examples]]
	[[Category:~~Game~~ 1+]]		[[Category:Games 1+]]