adventOfCode/dayEightWork.R at master · ossiefisheater/adventOfCode · GitHub

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

for(k in 1:200){

characterA = rawCut(k,3)[rawCut(k, 3) %ni% rawCut(k, 2)]


characterBD = rawCut(k,4)[rawCut(k, 4) %ni% rawCut(k, 2)]

characterEG = rawCut(k, 7)[rawCut(k, 7) %ni% append(rawCut(k, 4), characterA)]

characterABDEG <- c(characterA, characterBD, characterEG)

rawCutTwo <- function(i, n, position){
  unlist(strsplit(uniqueRaw[[i]][nchar(uniqueRaw[[i]]) == n], split = ""))[position]
}


for(i in c(1, 7, 13)){
  sixVector = rawCutTwo(k, 6, i:(i+5))

  if(length(sixVector[sixVector %ni% characterABDEG]) == 1){
    characterF = sixVector[sixVector %ni% characterABDEG]
  }
}

characterABDEFG <- c(characterA, characterBD, characterEG, characterF)

characterC = letters[1:7][letters[1:7] %ni% characterABDEFG]

characterABDF <- c(characterA, characterBD, characterF)


for(i in c(1, 6, 11)){
  fiveVector = rawCutTwo(k, 5, i:(i+4))

  if(length(fiveVector[fiveVector %ni% characterABDF]) == 1){
    characterG = fiveVector[fiveVector %ni% characterABDF]
  }
}

characterE = characterEG[characterEG != characterG]

characterACEG <- c(characterA, characterC, characterE, characterG)

for(i in c(1, 6, 11)){
  fiveVector = rawCutTwo(k, 5, i:(i+4))

  if(length(fiveVector[fiveVector %ni% characterACEG]) == 1){
    characterD = fiveVector[fiveVector %ni% characterACEG]
  }
}

characterB = characterBD[characterBD != characterD]

bindLetters <- tibble(a = characterA, b = characterB, c = characterC,
                      d = characterD, e = characterE, f = characterF,
                      g = characterG)

letterSort = bind_rows(letterSort, bindLetters)


}