2020-02: Password Philosophy

library(tidyverse)

df <- read.csv("input.csv")
head(df)

  min max letter             password
1   1  14      b  bbbbbbbbbbbbbbbbbbb
2   3  14      v      vvpvvvmvvvvvvvv
3   2   5      m              mfvxmmm
4  15  20      z zdzzzrjzzzdpzzdzzzzz
5   6   8      g           tggjggggrg
6   2   3      l                nlllw

Part 1

count <- 0

for(i in 1:nrow(df)) {
  if(str_count(df$password[i], as.character(df$letter[i])) >= df$min[i] & 
     str_count(df$password[i], as.character(df$letter[i])) <= df$max[i])
    count <- count + 1
}

count

[1] 548

Part 2

count <- 0

for(i in 1:nrow(df)) {
  sub <- paste(substr(df$password[i], df$min[i], df$min[i]), 
               substr(df$password[i], df$max[i], df$max[i]))
  if(str_count(sub, as.character(df$letter[i])) == 1)
    count <- count + 1
}

count

[1] 502