Учебный Проект. Релиз 7. Класс Computer2: различия между версиями

Материал из wikiru.visual-prolog.com

м
 
(не показано 11 промежуточных версий этого же участника)
Строка 1: Строка 1:
{{Ползунок7}}
{{Учебный Проект. Релиз 7}}
<vip>
<vip>
/******************************************
/******************************************
Copyright (c) 2007. Prolog Development Center
Copyright (c) Victor Yukhtenko
Written by: Victor Yukhtenko


Copyright (c) Elena Efimova
Predicate successfulStep
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.
Строка 23: Строка 25:
         PolyLineBraneObj=polylineStrategy2::new(),
         PolyLineBraneObj=polylineStrategy2::new(),
         setpolylineStrategy(PolyLineBraneObj).
         setpolylineStrategy(PolyLineBraneObj).
 
clauses
clauses
   getPlayerDescriptor(game::en)=polylineStrategy2::playerDescriptorEn_C.
   getPlayerDescriptor(game::en)=polylineStrategy2::playerDescriptorEn_C.
Строка 39: Строка 41:
   
   
constants
constants
     playerDescriptorEn_C="Computer: Prognosis within Limited Depth".
     playerDescriptorEn_C="Computer2: Limited Depth. Despair move - random".
     playerDescriptorRu_C="Computer: Прогноз на заданную глубину".
     playerDescriptorRu_C="Computer2: Ограниченная глубина. Ход отчаяния - случайный".
   
   
end class polylineStrategy2
end class polylineStrategy2
Строка 89: Строка 91:
   
   
predicates
predicates
     successfulStep: (positive Depth, juniourJudge::cell*)->juniourJudge::cell BestMove determ.
     successfulStep: (integer Counter, juniourJudge::cell*)->juniourJudge::cell nondeterm.
clauses
clauses
     successfulStep(Depth,PolyLine)=SafeMove:-
     successfulStep(Counter,PolyLine)=BestMove:-
         genericComputer_V:stepCandidate(PolyLine,PolyLine1,SafeMove),
         genericComputer_V:stepCandidate(PolyLine,_PolyLine1,BestMove),
            isSafeMove(Depth,PolyLine,SafeMove,PolyLine1),
        isStepSuccessful(Counter,PolyLine,BestMove),
             !.
        !.
    successfulStep(Counter,PolyLine)=Cell:-
        genericComputer_V:stepCandidate(PolyLine, PolyLine1,Cell),
             not(_=successfulStep(Counter-1,PolyLine1)).
   
   
predicates
class predicates
     isSafeMove:(positive Depth,juniourJudge::cell* PolyLine,juniourJudge::cell Move,juniourJudge::cell* PolyLineAfterMove) determ.
     isStepSuccessful:(integer Counter,juniourJudge::cell* PolyLine,juniourJudge::cell BestMove) determ.
clauses
clauses
     isSafeMove(_Depth,PolyLine,Move,_PolyLine1):- %this move wins
     isStepSuccessful(_Counter,PolyLine,BestMove):-
         list::isMember(Move, PolyLine),
         list::isMember(BestMove, PolyLine),
         !.
         !.
     isSafeMove(Depth,_PolyLine,_Move,_PolyLine1):- %it is safe until that depth
     isStepSuccessful(Counter,_PolyLine,_BestMove):-
         Depth>maxDepth_V-1,
         Counter<=1.
        !.
   
    isSafeMove(Depth,_PolyLine,_MoveIn,PolyLine1):- %it is not loss move till the end of the depth limit
        not(_MoveOut=successfulStep(Depth+1,PolyLine1)).
 
clauses
clauses
     randomStep()=Cell:-
     randomStep()=Cell:-
Строка 116: Строка 118:
         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>

Текущая версия на 17:23, 28 марта 2011

Учебный Проект. Релиз 7
/******************************************
Copyright (c) Victor Yukhtenko
 
Copyright (c) Elena Efimova
Predicate successfulStep
 
Class computer2
******************************************/
class computer2:player
open core
 
predicates
    getPlayerDescriptor:(game::language_D)->string Descriptor.
 
end class computer2
 
implement computer2
    inherits genericComputer
open core
 
clauses
    new():-
        PolyLineBraneObj=polylineStrategy2::new(),
        setpolylineStrategy(PolyLineBraneObj).
 
clauses
   getPlayerDescriptor(game::en)=polylineStrategy2::playerDescriptorEn_C.
   getPlayerDescriptor(game::ru)=polylineStrategy2::playerDescriptorRu_C.
 
end implement computer2
 
/******************************************
  Class polylineStrategy2
******************************************/
class polylineStrategy2:polylineStrategy
open core
predicates
    classInfo : core::classInfo.
 
constants
    playerDescriptorEn_C="Computer2: Limited Depth. Despair move - random".
    playerDescriptorRu_C="Computer2: Ограниченная глубина. Ход отчаяния - случайный".
 
end class polylineStrategy2
 
implement polylineStrategy2
open core, exception
 
constants
    className = "polylineStrategy2".
    classVersion = "1.0".
 
clauses
    classInfo(className, classVersion).
 
facts
    maxDepth_V:positive:=5.
    genericComputer_V:genericComputer:=erroneous.
 
clauses
    new():-
        defineSearchDepth().
 
clauses
    setGenericComputer(GenericComputerObj):-
        genericComputer_V:=GenericComputerObj.
 
predicates
    defineSearchDepth:().
clauses
    defineSearchDepth():-
        DepthStr=humanInterface::getInput(humanInterface::searchDepth_S,toString(maxDepth_V)),
        not(DepthStr=""),
        !,
        try
            maxDepth_V:=toTerm(DepthStr),
            if maxDepth_V mod 2 = 0 then
                maxDepth_V:=maxDepth_V+1
            end if    
        catch _TraceID1 do
            humanInterface::announce(humanInterface::errorMustBeNumber_S,""),
            defineSearchDepth()
        end try.
    defineSearchDepth().
 
clauses
    successfulStep(PolyLine)=BestMove:-
        BestMove=successfulStep(maxDepth_V,PolyLine).
 
predicates
    successfulStep: (integer Counter, juniourJudge::cell*)->juniourJudge::cell nondeterm.
clauses
    successfulStep(Counter,PolyLine)=BestMove:-
        genericComputer_V:stepCandidate(PolyLine,_PolyLine1,BestMove),
        isStepSuccessful(Counter,PolyLine,BestMove),
        !.
    successfulStep(Counter,PolyLine)=Cell:-
        genericComputer_V:stepCandidate(PolyLine, PolyLine1,Cell),
            not(_=successfulStep(Counter-1,PolyLine1)).
 
class predicates
    isStepSuccessful:(integer Counter,juniourJudge::cell* PolyLine,juniourJudge::cell BestMove) determ.
clauses
    isStepSuccessful(_Counter,PolyLine,BestMove):-
        list::isMember(BestMove, PolyLine),
        !.
    isStepSuccessful(Counter,_PolyLine,_BestMove):-
        Counter<=1.
 
clauses
    randomStep()=Cell:-
        findAll(NewCell,genericComputer_V:stepCandidate(juniourJudge::polyline_P,_Polyline1, NewCell),CellCandidateListWithDuplicates),
        CellCandidateList=list::removeDuplicates(CellCandidateListWithDuplicates),
        not(CellCandidateList=[]),
        NoOfVariants=list::length(CellCandidateList),
        ChoiceNo=math::random(NoOfVariants-1),
        Cell=list::nth(ChoiceNo+1,CellCandidateList).
 
end implement polylineStrategy2