forum.boolean.name - Задачка...

Алгоритм реализации практически однозначен. Затруднения могут быть вызваны лишь выбором организации обработки\хранения данных, что коррелирует с исходными данными (размером острова и скоростью воспроизведения популяции)
Код:
Const PopulationTypeWolf%=1

Const PopulationTypeRabbit%=2

Const Male%=1

Const Female%=0



;=================================

Type T2Dpoint

        Field x%,y%

End Type



Function Scalar2Vector(scalar%,vector.T2Dpoint)

        Select scalar

                Case 1

                        vector\x=-1

                        vector\y=1

                Case 2

                        vector\x=0

                        vector\y=1

                Case 3

                        vector\x=1

                        vector\y=1

                Case 4

                        vector\x=-1

                        vector\y=0

                Case 5

                        vector\x=1

                        vector\y=0

                Case 6

                        vector\x=-1

                        vector\y=-1

                Case 7

                        vector\x=0

                        vector\y=-1

                Case 8

                        vector\x=1

                        vector\y=-1

                Default

                        vector\x=0

                        vector\y=0

        End Select

End Function



Function MovePoint(point.t2dpoint,vector.t2dpoint)

        point\x=point\x+vector\x

        point\y=point\y+vector\y

End Function



Function StabliPoint(point.t2dpoint,size.t2dpoint)

        If point\x>size\x

                point\x=size\x

        ElseIf point\x<1

                point\x=1

        EndIf

        If point\y>size\y

                point\y=size\y

        ElseIf point\y<1

                point\y=1

        EndIf

End Function



Function EqualPoint(a.t2dpoint,b.t2dpoint)

        If a\x=b\x And a\y=b\y

                Return True

        EndIf

        Return False

End Function

;=================================

Type TIsland

        Field SIZE.T2Dpoint

        Field Populations%

End Type



Function CreateIsland.TIsland(x,y)

        I.TIsland=New TIsland

        I\SIZE=New T2Dpoint

        I\SIZE\x=x

        I\SIZE\y=y

        I\Populations=CreatePivot()

        HideEntity I\Populations

        Return I

End Function



Function AddAnimal(I.TIsland,HANDLE_,PosNeedSet%,CODE%)

        ;DebugLog "animal with code "+code

        Local PPivot%=0

        If CountChildren(I\Populations)

                For j=1 To CountChildren(I\Populations)

                        If EntityName(GetChild(I\Populations,j))=Str(CODE)

                                PPivot=GetChild(I\Populations,j)

                                Exit

                        EndIf

                Next

        EndIf

        ;DebugLog "root for population "+PPivot

        If PPivot=0

                PPivot=CreatePivot(I\Populations)

                NameEntity PPivot,Str(CODE)

                ;DebugLog "new population with code "+code

        EndIf

        Local Obj=CreatePivot(PPivot)

        NameEntity Obj,Str(HANDLE_)

        Select CODE

                Case PopulationTypeWolf

                        Local Wolf.TWolf=Object.TWolf(HANDLE_)

                        Wolf\IslandHandle=Handle(I)

                        Wolf\PopPiv=Obj

                        If PosNeedSet

                                Wolf\Position\X=Rand(1,I\SIZE\x)

                                Wolf\Position\Y=Rand(1,I\SIZE\y)

                        EndIf

                Case PopulationTypeRabbit

                        Local Rabbit.TRabbit=Object.TRabbit(HANDLE_)

                        Rabbit\IslandHandle=Handle(I)

                        Rabbit\PopPiv=Obj

                        If PosNeedSet

                                Rabbit\Position\X=Rand(1,I\SIZE\x)

                                Rabbit\Position\Y=Rand(1,I\SIZE\y)

                        EndIf

        End Select

End Function



Function GetObjectsInCoord%(coord.t2dpoint,I.TIsland)

        Pivot=CreatePivot()

        HideEntity Pivot

        Local SubPivot

        Local Popul%

        If CountChildren(I\Populations)

                For k=1 To CountChildren(I\Populations)

                        popul=GetChild(I\Populations,k)

                        For j=1 To CountChildren(popul)

                                Select Int(EntityName(popul))

                                        Case PopulationTypeWolf

                                                Local Wolf.TWolf=Object.TWolf(EntityName(GetChild(popul,j)))

                                                If EqualPoint(Wolf\Position,coord)

                                                        SubPivot=CreatePivot(Pivot)

                                                        NameEntity SubPivot,EntityName(popul)

                                                        EntityType SubPivot,Handle(Wolf)

                                                EndIf

                                        Case PopulationTypeRabbit

                                                Local Rabbit.TRabbit=Object.TRabbit(EntityName(GetChild(popul,j)))

                                                If EqualPoint(Rabbit\Position,coord)

                                                        SubPivot=CreatePivot(Pivot)

                                                        NameEntity SubPivot,EntityName(popul)

                                                        EntityType SubPivot,Handle(Rabbit)

                                                EndIf

                                End Select

                        Next

                Next

        EndIf

        Return Pivot

End Function



Function UpdateIsland(I.TIsland)

        If CountChildren(I\Populations)

                For k=1 To CountChildren(I\Populations)

                        popul=GetChild(I\Populations,k)

                        For j=1 To CountChildren(popul)

                                Select Int(EntityName(popul))

                                        Case PopulationTypeWolf

                                                Local Wolf.TWolf=Object.TWolf(EntityName(GetChild(popul,j)))

                                                UpdateWolf(Wolf)

                                        Case PopulationTypeRabbit

                                                Local Rabbit.TRabbit=Object.TRabbit(EntityName(GetChild(popul,j)))

                                                UpdateRabbit(Rabbit)

                                End Select

                        Next

                Next

        EndIf

End Function



Function DrawIsland(I.TIsland,x%,y%)

        Local MapCellSize%=25

        Color 0,200,0

        For ix=1 To I\SIZE\x

                For iy=1 To I\SIZE\y

                        Rect x+(ix-1)*MapCellSize+1,y+(iy-1)*MapCellSize+1,MapCellSize-2,MapCellSize-2

                Next

        Next

        If CountChildren(I\Populations)

                For k=1 To CountChildren(I\Populations)

                        popul=GetChild(I\Populations,k)

                        For j=1 To CountChildren(popul)

                                Select Int(EntityName(popul))

                                        Case PopulationTypeWolf

                                                Local Wolf.TWolf=Object.TWolf(EntityName(GetChild(popul,j)))

                                                DrawWolf(Wolf,x,y,MapCellSize)

                                        Case PopulationTypeRabbit

                                                Local Rabbit.TRabbit=Object.TRabbit(EntityName(GetChild(popul,j)))

                                                DrawRabbit(Rabbit,x,y,MapCellSize)

                                End Select

                        Next

                Next

        EndIf



End Function

;=================================

Type TWolf

        Field Gendor%

        Field Score#

        Field Position.T2Dpoint

        Field IslandHandle%

        Field PopPiv%

End Type



Function CreateWolf.TWolf(Gendor%)

        W.TWolf=New TWolf

        W\GENDOR=Gendor

        W\SCORE=1

        W\Position=New T2Dpoint

        Return W

End Function



Function UpdateWolf(W.Twolf)

        Local ISL.TIsland=Object.TIsland(W\IslandHandle)

        Local Move.T2Dpoint=New T2Dpoint

        Scalar2Vector(Rand(0,9),Move)

        MovePoint(W\Position,Move)

        StabliPoint(W\Position,ISL\SIZE)

        Delete MOVE

        

        Local List=GetObjectsInCoord(W\position,ISL)

        Local hav4eg=False

        Local Wolf.TWolf=Null

        If CountChildren(List)

                For i=1 To CountChildren(List)

                        Select Int(EntityName(GetChild(List,i)))

                                Case PopulationTypeWolf

                                        If GetEntityType(GetChild(List,i))<>Handle(W)

                                                If W\GENDOR=Male

                                                        Wolf.TWolf=Object.TWolf(GetEntityType(GetChild(List,i)))

                                                        If Wolf\GENDOR<>Female

                                                                Wolf=Null

                                                        EndIf

                                                EndIf

                                        EndIf

                                Case PopulationTypeRabbit

                                        Local Rabbit.TRabbit=Object.TRabbit(GetEntityType(GetChild(List,i)))

                                        FreeEntity Rabbit\PopPiv

                                        Delete Rabbit

                                        W\SCORE=W\SCORE+1

                                        hav4eg=True

                                        Exit

                        End Select

                Next

        EndIf

        FreeEntity List

        If Not hav4eg

                W\SCORE=W\SCORE-0.1

                If Wolf<>Null

                        Local gendor=Rand(0,1)

                        Local ChildWolf.TWolf=CreateWolf(gendor)

                        ChildWolf\Position\X=Wolf\Position\X

                        ChildWolf\Position\Y=Wolf\Position\Y

                        AddAnimal(ISL,Handle(ChildWolf),False,PopulationTypeWolf)

                EndIf

        EndIf

        If W\SCORE=0

                FreeEntity W\PopPiv

                Delete W

        EndIf

        



End Function



Function DrawWolf(W.TWolf,x,y,mcs)

        Color 0,0,0

        Local ix=W\Position\x

        Local iy=W\Position\y

        Oval x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,mcs-2,mcs-2

        Color 255,255,255

        Select W\gendor

                Case male

                        Text x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,"M"

                Case female

                        Text x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,"}|{"

        End Select

End Function

;=================================

Type TRabbit

        Field Position.T2Dpoint

        Field IslandHandle%

        Field PopPiv%

End Type



Function CreateRabbit.TRabbit()

        R.TRabbit=New TRabbit

        R\Position=New T2Dpoint

        Return R

End Function



Function UpdateRabbit(R.TRabbit)

        Local ISL.TIsland=Object.TIsland(R\IslandHandle)

        Local Move.T2Dpoint=New T2Dpoint

        Scalar2Vector(Rand(0,9),Move)

        MovePoint(R\Position,Move)

        StabliPoint(R\Position,ISL\SIZE)

        Delete MOVE

        If Rnd(0,1)<=RabbitProb

                Local ChildRabbit.TRabbit=CreateRabbit()

                ChildRabbit\Position\X=R\Position\X

                ChildRabbit\Position\Y=R\Position\Y

                AddAnimal(ISL,Handle(ChildRabbit),False,PopulationTypeRabbit)

        EndIf

End Function



Function DrawRabbit(R.TRabbit,x,y,mcs)

        Color 100,100,100

        Local ix=R\Position\x

        Local iy=R\Position\y

        Oval x+(ix-1)*mcs+1,y+(iy-1)*mcs+1,mcs-2,mcs-2

End Function

;=================================

;=================================



Const TimeMoment=1000;ms

Const RabbitProb#=0.2





Graphics3D 800,600,32

SetBuffer BackBuffer()

SetFont(LoadFont("Arial cyr",20))

SeedRnd(MilliSecs())

Island.TIsland=CreateIsland(20,20)

For i=1 To 1

        Rabbit.TRabbit=CreateRabbit()

        AddAnimal(Island,Handle(Rabbit),True,PopulationTypeRabbit)

Next

For i=1 To 10

        Wolf.TWolf=CreateWolf(Male)

        AddAnimal(Island,Handle(Wolf),True,PopulationTypeWolf)

Next

For i=1 To 10

        Wolf.TWolf=CreateWolf(Female)

        AddAnimal(Island,Handle(Wolf),True,PopulationTypeWolf)

Next

Local time=MilliSecs()

While Not KeyHit(1)

        DrawIsland(Island,5,5)

        If MilliSecs()-time>=TimeMoment

                time=MilliSecs()

                UpdateIsland(Island)

        EndIf

        Flip

Wend

End
Занятно, уонечно:
то кролики делают, сами знаете что, как кролики,
то группа волчиц, забитая случайность в угол, становится интерсной целью для самцов..