Day 23 Notebook

input<-read_lines("Day23Sample.txt")
dlports<-matrix(ncol=2,nrow=0)
## Pull in the edges, put them into a graph
for(i in 1:length(input)){
  x<-unlist(str_split(input[i],"-"))
  dlports<-rbind(dlports,x)}
dlgraph<-graph_from_edgelist(dlports,directed=FALSE)

Graphs!!!!!

### Cliques brings the groups of three
dlcliques<-cliques(dlgraph,max=3,min=3)
### Get the vertex names
triplets<-lapply(dlcliques,function(x){vertex(x)[[1]]$name})
### Get the count of any that have a vertex beginning with a T
p1<-sapply(triplets,function(x){t<-if(any(str_starts(x,"t"))){1}else{0}})
part1<-sum(p1)
part1

[1] 7

Part 2

### Get the largest clique, sort their vertices
part2<-str_flatten(sort(vertex(largest_cliques(dlgraph))[[1]][[1]]$name),",")
part2

[1] "co,de,ka,ta"

co,de,ka,ta