[641] | 1 | #region License Information
|
---|
| 2 | /* HeuristicLab
|
---|
| 3 | * Copyright (C) 2002-2008 Heuristic and Evolutionary Algorithms Laboratory (HEAL)
|
---|
| 4 | *
|
---|
| 5 | * This file is part of HeuristicLab.
|
---|
| 6 | *
|
---|
| 7 | * HeuristicLab is free software: you can redistribute it and/or modify
|
---|
| 8 | * it under the terms of the GNU General Public License as published by
|
---|
| 9 | * the Free Software Foundation, either version 3 of the License, or
|
---|
| 10 | * (at your option) any later version.
|
---|
| 11 | *
|
---|
| 12 | * HeuristicLab is distributed in the hope that it will be useful,
|
---|
| 13 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
| 14 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
| 15 | * GNU General Public License for more details.
|
---|
| 16 | *
|
---|
| 17 | * You should have received a copy of the GNU General Public License
|
---|
| 18 | * along with HeuristicLab. If not, see <http://www.gnu.org/licenses/>.
|
---|
| 19 | */
|
---|
| 20 | #endregion
|
---|
| 21 |
|
---|
| 22 | using System;
|
---|
[2222] | 23 | using HeuristicLab.GP.Interfaces;
|
---|
[641] | 24 |
|
---|
| 25 | namespace HeuristicLab.GP.SantaFe {
|
---|
| 26 | internal class AntInterpreter {
|
---|
| 27 | private const int N_FOOD_ITEMS = 89;
|
---|
| 28 | private const int WORLD_WIDTH = 32;
|
---|
| 29 | private const int WORLD_HEIGHT = 32;
|
---|
| 30 | private const int FOOD = 1;
|
---|
| 31 | private const int EMPTY = 0;
|
---|
| 32 | private int[] SANTA_FE_TRAIL = new int[] {
|
---|
| 33 | 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 34 | 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 35 | 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0,
|
---|
| 36 | 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0,
|
---|
| 37 | 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0,
|
---|
| 38 | 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 39 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
|
---|
| 40 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 41 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 42 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
|
---|
| 43 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 44 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 45 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
|
---|
| 46 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 47 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0,
|
---|
| 48 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 49 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 50 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 51 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 52 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0,
|
---|
| 53 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 54 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 55 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0,
|
---|
| 56 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 57 | 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 58 | 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 59 | 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 60 | 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 61 | 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 62 | 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 63 | 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 64 | 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
---|
| 65 | };
|
---|
| 66 |
|
---|
| 67 | private int[] trail;
|
---|
| 68 |
|
---|
| 69 | public int ElapsedTime { get; set; }
|
---|
| 70 | public int MaxTimeSteps { get; set; }
|
---|
| 71 | public int FoodEaten { get; set; }
|
---|
| 72 | private int currentDirection;
|
---|
| 73 | private int currentLocation;
|
---|
| 74 |
|
---|
| 75 | public AntInterpreter() {
|
---|
| 76 | currentLocation = 0;
|
---|
| 77 | currentDirection = 0;
|
---|
| 78 | FoodEaten = 0;
|
---|
| 79 | trail = new int[WORLD_HEIGHT * WORLD_WIDTH];
|
---|
| 80 | Array.Copy(SANTA_FE_TRAIL, trail, SANTA_FE_TRAIL.Length);
|
---|
| 81 | }
|
---|
| 82 |
|
---|
| 83 | internal void Run(IFunctionTree tree) {
|
---|
| 84 | while(FoodEaten < N_FOOD_ITEMS && ElapsedTime < MaxTimeSteps) {
|
---|
| 85 | Step(tree);
|
---|
| 86 | }
|
---|
| 87 | }
|
---|
| 88 |
|
---|
| 89 | internal void Step(IFunctionTree tree) {
|
---|
| 90 | int symbol = SymbolTable.MapFunction(tree.Function);
|
---|
| 91 | switch(symbol) {
|
---|
| 92 | case SymbolTable.LEFT:
|
---|
| 93 | if(ElapsedTime >= MaxTimeSteps || FoodEaten >= N_FOOD_ITEMS) return;
|
---|
| 94 | currentDirection = (currentDirection + 3) % 4;
|
---|
| 95 | ElapsedTime++;
|
---|
| 96 | return;
|
---|
| 97 | case SymbolTable.RIGHT:
|
---|
| 98 | if(ElapsedTime >= MaxTimeSteps || FoodEaten >= N_FOOD_ITEMS) return;
|
---|
| 99 | currentDirection = (currentDirection + 1) % 4;
|
---|
| 100 | ElapsedTime++;
|
---|
| 101 | return;
|
---|
| 102 | case SymbolTable.MOVE:
|
---|
| 103 | if(ElapsedTime >= MaxTimeSteps || FoodEaten >= N_FOOD_ITEMS) return;
|
---|
| 104 | currentLocation = NextField();
|
---|
| 105 | FoodEaten += trail[currentLocation];
|
---|
| 106 | trail[currentLocation] = EMPTY;
|
---|
| 107 | ElapsedTime++;
|
---|
| 108 | return;
|
---|
| 109 | case SymbolTable.IF_FOOD_AHEAD:
|
---|
| 110 | if(trail[NextField()] == FOOD) {
|
---|
| 111 | Step(tree.SubTrees[0]);
|
---|
| 112 | } else {
|
---|
| 113 | Step(tree.SubTrees[1]);
|
---|
| 114 | }
|
---|
| 115 | return;
|
---|
| 116 | case SymbolTable.PROG2:
|
---|
| 117 | Step(tree.SubTrees[0]);
|
---|
| 118 | Step(tree.SubTrees[1]);
|
---|
| 119 | return;
|
---|
| 120 | case SymbolTable.PROG3:
|
---|
| 121 | Step(tree.SubTrees[0]);
|
---|
| 122 | Step(tree.SubTrees[1]);
|
---|
| 123 | Step(tree.SubTrees[2]);
|
---|
| 124 | return;
|
---|
| 125 | case SymbolTable.UNKNOWN:
|
---|
| 126 | throw new InvalidOperationException(tree.Function.ToString());
|
---|
| 127 | }
|
---|
| 128 | }
|
---|
| 129 |
|
---|
| 130 | private int NextField() {
|
---|
| 131 | int currentLocationX = currentLocation % WORLD_WIDTH;
|
---|
| 132 | int currentLocationY = currentLocation / WORLD_HEIGHT;
|
---|
| 133 |
|
---|
| 134 | switch(currentDirection) {
|
---|
| 135 | case 0:
|
---|
| 136 | currentLocationX = (currentLocationX + 1) % WORLD_WIDTH; // EAST
|
---|
| 137 | break;
|
---|
| 138 | case 1:
|
---|
| 139 | currentLocationY = (currentLocationY + 1) % WORLD_HEIGHT; // SOUTH
|
---|
| 140 | break;
|
---|
| 141 | case 2:
|
---|
| 142 | currentLocationX = (currentLocationX + WORLD_WIDTH - 1) % WORLD_WIDTH; // WEST
|
---|
| 143 | break;
|
---|
| 144 | case 3:
|
---|
| 145 | currentLocationY = (currentLocationY + WORLD_HEIGHT - 1) % WORLD_HEIGHT; // NORTH
|
---|
| 146 | break;
|
---|
| 147 | default:
|
---|
| 148 | throw new InvalidOperationException();
|
---|
| 149 | }
|
---|
| 150 | return currentLocationY * WORLD_WIDTH + currentLocationX;
|
---|
| 151 | }
|
---|
| 152 | }
|
---|
| 153 | }
|
---|