PortCullingEncoding

firstCol <- c('L', '∅', 'R')
secondCol <- c('∅', '∅', '∅')
thirdCol <- c('R', 'R', 'R')
allTogetherNow <- cbind(firstCol, secondCol, thirdCol)
print(allTogetherNow)

##      firstCol secondCol thirdCol
## [1,] "L"      "∅"       "R"     
## [2,] "∅"      "∅"       "R"     
## [3,] "R"      "∅"       "R"

alto <- cbind(c('L', '∅', ' '), c('∅', '∅', '∅'), c(' ', '∅', 'R'))
print(alto)

##      [,1] [,2] [,3]
## [1,] "L"  "∅"  " " 
## [2,] "∅"  "∅"  "∅" 
## [3,] " "  "∅"  "R"

print(t(alto))

##      [,1] [,2] [,3]
## [1,] "L"  "∅"  " " 
## [2,] "∅"  "∅"  "∅" 
## [3,] " "  "∅"  "R"

print(t(allTogetherNow))

##           [,1] [,2] [,3]
## firstCol  "L"  "∅"  "R" 
## secondCol "∅"  "∅"  "∅" 
## thirdCol  "R"  "R"  "R"

countPossPortCull <- function(coerced) {
  counter <- 0
  for (i in 1:3) {
    if (coerced[i,1] == 'L' && coerced[i,2] == '∅' && coerced[i,3] == 'R') {
      counter <- counter + 1
    }
    if (coerced[i,1] == 'L' && coerced[i,2] == '∅' && coerced[i,3] == ' ') {
      counter <- counter + 1
    }
    if (coerced[i,1] == ' ' && coerced[i,2] == '∅' && coerced[i,3] == 'R') {
      counter <- counter + 1
    }
    if (coerced[1,i] == 'L' && coerced[2,i] == '∅' && coerced[3,i] == 'R') {
      counter <- counter + 1
    }
    if (coerced[1,i] == 'L' && coerced[2,i] == '∅' && coerced[3,i] == ' ') {
      counter <- counter + 1
    }
    if (coerced[1,i] == ' ' && coerced[2,i] == '∅' && coerced[3,i] == 'R') {
      counter <- counter + 1
    }
  }
  return(counter)
}

numOfPorts <- countPossPortCull(allTogetherNow)
print(countPossPortCull(alto))

## [1] 4