-
Notifications
You must be signed in to change notification settings - Fork 0
/
day2.p
66 lines (52 loc) · 2.23 KB
/
day2.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
/*
--- Day 2: Dive! ---
Now, you need to figure out how to pilot this thing.
It seems like the submarine can take a series of commands like forward 1, down 2, or up 3:
forward X increases the horizontal position by X units.
down X increases the depth by X units.
up X decreases the depth by X units.
Note that since you're on a submarine, down and up affect your depth, and so they have the opposite result of what you might expect.
The submarine seems to already have a planned course (your puzzle input). You should probably figure out where it's going. For example:
forward 5
down 5
forward 8
up 3
down 8
forward 2
Your horizontal position and depth both start at 0. The steps above would then modify them as follows:
forward 5 adds 5 to your horizontal position, a total of 5.
down 5 adds 5 to your depth, resulting in a value of 5.
forward 8 adds 8 to your horizontal position, a total of 13.
up 3 decreases your depth by 3, resulting in a value of 2.
down 8 adds 8 to your depth, resulting in a value of 10.
forward 2 adds 2 to your horizontal position, a total of 15.
After following these instructions, you would have a horizontal position of 15 and a depth of 10. (Multiplying these together produces 150.)
Calculate the horizontal position and depth you would have after following the planned course. What do you get if you multiply your final horizontal position by your final depth?
*/
DEFINE VARIABLE iHoriz AS INTEGER NO-UNDO.
DEFINE VARIABLE iDepth AS INTEGER NO-UNDO.
DEFINE VARIABLE cDir AS CHARACTER NO-UNDO.
DEFINE VARIABLE iUnits AS INTEGER NO-UNDO.
ETIME(YES).
INPUT FROM C:\Work\aoc\aoc2021\day2.txt.
REPEAT:
IMPORT cDir iUnits.
CASE cDir:
WHEN "forward" THEN iHoriz = iHoriz + iUnits.
WHEN "down" THEN iDepth = iDepth + iUnits.
WHEN "up" THEN iDepth = iDepth - iUnits.
END CASE.
END.
INPUT CLOSE.
MESSAGE ETIME SKIP iHoriz "*" iDepth "=" iHoriz * iDepth
VIEW-AS ALERT-BOX INFO BUTTONS OK.
/*
---------------------------
Renseignement (Press HELP to view stack trace)
---------------------------
4
2085 * 785 = 1636725
---------------------------
OK Aide
---------------------------
*/