-
Notifications
You must be signed in to change notification settings - Fork 0
/
day11.p
114 lines (84 loc) · 4.2 KB
/
day11.p
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
/*
--- Day 11: Chronal Charge ---
You watch the Elves and their sleigh fade into the distance as they head toward the North Pole.
Actually, you're the one fading. The falling sensation returns.
The low fuel warning light is illuminated on your wrist-mounted device. Tapping it once causes it to project a hologram of the situation: a 300x300 grid of fuel cells and their current power levels, some negative. You're not sure what negative power means in the context of time travel, but it can't be good.
Each fuel cell has a coordinate ranging from 1 to 300 in both the X (horizontal) and Y (vertical) direction. In X,Y notation, the top-left cell is 1,1, and the top-right cell is 300,1.
The interface lets you select any 3x3 square of fuel cells. To increase your chances of getting to your destination, you decide to choose the 3x3 square with the largest total power.
The power level in a given fuel cell can be found through the following process:
Find the fuel cell's rack ID, which is its X coordinate plus 10.
Begin with a power level of the rack ID times the Y coordinate.
Increase the power level by the value of the grid serial number (your puzzle input).
Set the power level to itself multiplied by the rack ID.
Keep only the hundreds digit of the power level (so 12345 becomes 3; numbers with no hundreds digit become 0).
Subtract 5 from the power level.
For example, to find the power level of the fuel cell at 3,5 in a grid with serial number 8:
The rack ID is 3 + 10 = 13.
The power level starts at 13 * 5 = 65.
Adding the serial number produces 65 + 8 = 73.
Multiplying by the rack ID produces 73 * 13 = 949.
The hundreds digit of 949 is 9.
Subtracting 5 produces 9 - 5 = 4.
So, the power level of this fuel cell is 4.
Here are some more example power levels:
Fuel cell at 122,79, grid serial number 57: power level -5.
Fuel cell at 217,196, grid serial number 39: power level 0.
Fuel cell at 101,153, grid serial number 71: power level 4.
Your goal is to find the 3x3 square which has the largest total power. The square must be entirely within the 300x300 grid. Identify this square using the X,Y coordinate of its top-left fuel cell. For example:
For grid serial number 18, the largest total 3x3 square has a top-left corner of 33,45 (with a total power of 29); these fuel cells appear in the middle of this 5x5 region:
-2 -4 4 4 4
-4 4 4 4 -5
4 3 3 4 -4
1 1 2 4 -3
-1 0 2 -5 -2
For grid serial number 42, the largest 3x3 square's top-left is 21,61 (with a total power of 30); they are in the middle of this region:
-3 4 2 2 2
-4 4 3 3 4
-5 3 3 4 -4
4 3 3 4 -3
3 3 3 -5 -1
What is the X,Y coordinate of the top-left fuel cell of the 3x3 square with the largest total power?
*/
&GLOBAL-DEFINE xiSerialNb 5235
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE ii AS INTEGER NO-UNDO.
DEFINE VARIABLE j AS INTEGER NO-UNDO.
DEFINE VARIABLE jj AS INTEGER NO-UNDO.
DEFINE TEMP-TABLE ttGrid NO-UNDO
FIELD iX AS INTEGER
FIELD iY AS INTEGER
FIELD iPower AS INTEGER
FIELD iPower3x3 AS INTEGER
INDEX ix IS PRIMARY UNIQUE iX iY
INDEX ip iPower3x3 DESCENDING.
DEFINE BUFFER bttGrid FOR ttGrid.
ETIME(YES).
/* create grid and compute cells power */
DO j = 1 TO 300:
DO i = 1 TO 300:
CREATE ttGrid.
ASSIGN ttGrid.iX = i
ttGrid.iY = j
ttGrid.iPower = TRUNCATE( ( ( (i + 10) * j + {&xiSerialNb} ) * (i + 10)) / 100, 0) MODULO 10 - 5.
END.
END.
/* compute 3x3 zones power */
DO j = 1 TO 298:
DO i = 1 TO 298:
FIND ttGrid WHERE ttGrid.iX = i AND ttGrid.iY = j.
DO jj = 0 TO 2:
DO ii = 0 TO 2:
FIND bttGrid WHERE bttGrid.iX = i + ii AND bttGrid.iY = j + jj.
ttGrid.iPower3x3 = ttGrid.iPower3x3 + bttGrid.iPower.
END.
END.
END.
END.
FOR EACH ttGrid BY ttGrid.iPower3x3 DESCENDING:
LEAVE.
END.
MESSAGE ETIME SKIP
ttGrid.iX ttGrid.iY ttGrid.iPower3x3
VIEW-AS ALERT-BOX INFO BUTTONS OK.
/* 18791 */
/* 33 54 28 */