-
Notifications
You must be signed in to change notification settings - Fork 0
/
day1.p
72 lines (54 loc) · 2.43 KB
/
day1.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
/*
--- Day 1: Report Repair ---
After saving Christmas five years in a row, you've decided to take a vacation at a nice resort on a tropical island. Surely, Christmas will go on without you.
The tropical island has its own currency and is entirely cash-only. The gold coins used there have a little picture of a starfish; the locals just call them stars. None of the currency exchanges seem to have heard of them, but somehow, you'll need to find fifty of these coins by the time you arrive so you can pay the deposit on your room.
To save your vacation, you need to get all fifty stars by December 25th.
Collect stars by solving puzzles. Two puzzles will be made available on each day in the Advent calendar; the second puzzle is unlocked when you complete the first. Each puzzle grants one star. Good luck!
Before you leave, the Elves in accounting just need you to fix your expense report (your puzzle input); apparently, something isn't quite adding up.
Specifically, they need you to find the two entries that sum to 2020 and then multiply those two numbers together.
For example, suppose your expense report contained the following:
1721
979
366
299
675
1456
In this list, the two entries that sum to 2020 are 1721 and 299. Multiplying them together produces 1721 * 299 = 514579, so the correct answer is 514579.
Of course, your expense report is much larger. Find the two entries that sum to 2020; what do you get if you multiply them together?
*/
DEFINE VARIABLE iSeq AS INTEGER NO-UNDO.
DEFINE VARIABLE iAmount AS INTEGER NO-UNDO.
DEFINE TEMP-TABLE ttExpense NO-UNDO
FIELD iSeq AS INTEGER
FIELD iAmount AS INTEGER
INDEX ix iSeq.
INPUT FROM C:\User\JCCARDOT\Perso\Travail\aoc\aoc2020\day1.txt.
REPEAT:
iSeq = iSeq + 1.
IMPORT iAmount.
create ttExpense.
assign ttExpense.iSeq = iSeq
ttExpense.iAmount = iAmount.
END.
INPUT CLOSE.
etime(yes).
define buffer bttExpense for ttExpense.
blkSearch:
for each ttExpense:
for each bttExpense where bttExpense.iSeq > ttExpense.iSeq:
if ttExpense.iAmount + bttExpense.iAmount = 2020 then
leave blkSearch.
end.
end.
MESSAGE etime skip ttExpense.iAmount * bttExpense.iAmount
VIEW-AS ALERT-BOX INFO BUTTONS OK.
/*
---------------------------
Information (Press HELP to view stack trace)
---------------------------
13
1005459
---------------------------
Aceptar Ayuda
---------------------------
*/