-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathday6.p
103 lines (80 loc) · 3.31 KB
/
day6.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
/*
--- Day 6: Universal Orbit Map ---
You've landed at the Universal Orbit Map facility on Mercury. Because navigation in space often involves transferring between orbits, the orbit maps here are useful for finding efficient routes between, for example, you and Santa. You download a map of the local orbits (your puzzle input).
Except for the universal Center of Mass (COM), every object in space is in orbit around exactly one other object. An orbit looks roughly like this:
\
\
|
|
AAA--> o o <--BBB
|
|
/
/
In this diagram, the object BBB is in orbit around AAA. The path that BBB takes around AAA (drawn with lines) is only partly shown. In the map data, this orbital relationship is written AAA)BBB, which means "BBB is in orbit around AAA".
Before you use your map data to plot a course, you need to make sure it wasn't corrupted during the download. To verify maps, the Universal Orbit Map facility uses orbit count checksums - the total number of direct orbits (like the one shown above) and indirect orbits.
Whenever A orbits B and B orbits C, then A indirectly orbits C. This chain can be any number of objects long: if A orbits B, B orbits C, and C orbits D, then A indirectly orbits D.
For example, suppose you have the following map:
COM)B
B)C
C)D
D)E
E)F
B)G
G)H
D)I
E)J
J)K
K)L
Visually, the above map of orbits looks like this:
G - H J - K - L
/ /
COM - B - C - D - E - F
\
I
In this visual representation, when two objects are connected by a line, the one on the right directly orbits the one on the left.
Here, we can count the total number of orbits as follows:
D directly orbits C and indirectly orbits B and COM, a total of 3 orbits.
L directly orbits K and indirectly orbits J, E, D, C, B, and COM, a total of 7 orbits.
COM orbits nothing.
The total number of direct and indirect orbits in this example is 42.
What is the total number of direct and indirect orbits in your map data?
*/
ETIME(YES).
DEFINE TEMP-TABLE ttOrbit NO-UNDO
FIELD cCenter AS CHARACTER
FIELD cOrbiter AS CHARACTER
FIELD iChkSum AS INTEGER INITIAL 1
INDEX ix IS UNIQUE cOrbiter.
DEFINE BUFFER bttOrbit FOR ttOrbit.
DEFINE VARIABLE cCenter AS CHARACTER NO-UNDO.
DEFINE VARIABLE iTotal AS INTEGER INITIAL 1 NO-UNDO.
INPUT FROM C:\User\JCCARDOT\Perso\Travail\aoc\aoc2019\day6.txt.
REPEAT:
CREATE ttOrbit.
IMPORT DELIMITER ")" ttOrbit.cCenter ttOrbit.cOrbiter.
END.
DELETE ttOrbit.
INPUT CLOSE.
FOR EACH ttOrbit WHERE ttOrbit.cCenter <> "COM":
cCenter = ttOrbit.cCenter.
DO WHILE TRUE:
FIND bttOrbit WHERE bttOrbit.cOrbiter = cCenter.
ttOrbit.iChkSum = ttOrbit.iChkSum + 1.
IF bttOrbit.cCenter = "COM" THEN LEAVE.
cCenter = bttOrbit.cCenter.
END.
iTotal = iTotal + ttOrbit.iChkSum.
END.
MESSAGE ETIME SKIP iTotal
VIEW-AS ALERT-BOX INFO BUTTONS OK.
/*
---------------------------
Information (Press HELP to view stack trace)
---------------------------
2029
251208
---------------------------
Aceptar Ayuda
---------------------------
*/