-
Notifications
You must be signed in to change notification settings - Fork 0
/
day2.p
60 lines (46 loc) · 2.52 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
/*
--- Day 2: Password Philosophy ---
Your flight departs in a few days from the coastal airport; the easiest way down to the coast from here is via toboggan.
The shopkeeper at the North Pole Toboggan Rental Shop is having a bad day. "Something's wrong with our computers; we can't log in!" You ask if you can take a look.
Their password database seems to be a little corrupted: some of the passwords wouldn't have been allowed by the Official Toboggan Corporate Policy that was in effect when they were chosen.
To try to debug the problem, they have created a list (your puzzle input) of passwords (according to the corrupted database) and the corporate policy when that password was set.
For example, suppose you have the following list:
1-3 a: abcde
1-3 b: cdefg
2-9 c: ccccccccc
Each line gives the password policy and then the password. The password policy indicates the lowest and highest number of times a given letter must appear for the password to be valid. For example, 1-3 a means that the password must contain a at least 1 time and at most 3 times.
In the above example, 2 passwords are valid. The middle password, cdefg, is not; it contains no instances of b, but needs at least 1. The first and third passwords are valid: they contain one a or nine c, both within the limits of their respective policies.
How many passwords are valid according to their policies?
*/
DEFINE VARIABLE cLetter AS CHARACTER NO-UNDO.
DEFINE VARIABLE cLine AS CHARACTER NO-UNDO.
DEFINE VARIABLE cPassword AS CHARACTER NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE iCount AS INTEGER NO-UNDO.
DEFINE VARIABLE iMax AS INTEGER NO-UNDO.
DEFINE VARIABLE iMin AS INTEGER NO-UNDO.
DEFINE VARIABLE iResult AS INTEGER NO-UNDO.
etime(yes).
INPUT FROM C:\User\JCCARDOT\Perso\Travail\aoc\aoc2020\day2.txt.
REPEAT:
IMPORT UNFORMATTED cLine.
iMin = INTEGER(ENTRY(1, cLine, "-")).
iMax = INTEGER(ENTRY(2,ENTRY(1, cLine, " "), "-")).
cLetter = SUBSTRING(ENTRY(2, cLine, " "), 1, 1).
cPassword = ENTRY(3, cLine, " ").
iCount = LENGTH(cPassword) - LENGTH(REPLACE(cPassword, cLetter, "")).
iResult = iResult + IF iCount >= iMin AND iCount <= iMax THEN 1 ELSE 0.
END.
INPUT CLOSE.
MESSAGE etime skip iResult
VIEW-AS ALERT-BOX INFO BUTTONS OK.
/*
---------------------------
Information (Press HELP to view stack trace)
---------------------------
45
636
---------------------------
Aceptar Ayuda
---------------------------
*/