Decipher The Seven Segments, R

Language: Layout:

#
# [2018-04-23] Challenge #358 [Easy] Decipher The Seven Segments
# https://www.reddit.com/r/dailyprogrammer/comments/8eger3/20180423_challenge_358_easy_decipher_the_seven/
#
# Demo at http://rextester.com/RAW36066
#
# Kory Becker
# 4/26/2018
# http://primaryobjects.com
#

numbers <- data.frame(
  unlist(strsplit(' _     _  _     _  _  _  _  _ ', '')),
  unlist(strsplit('| |  | _| _||_||_ |_   ||_||_|', '')),
  unlist(strsplit('|_|  ||_  _|  | _||_|  ||_| _|', '')
  ))

# Convert r1 to cooresponding values.
encodeValues <- function(r, multiplier) {
  values <- c()
  for (colIndex in 1:length(r)) {
    val <- 0
    ch <- r[colIndex]
    
    if (ch == ' ') {
      val <- 1
    }
    else if (ch == '_') {
      val <- 2
    }
    else if (ch == '|') {
      val <- 3
    }
    
    val <- val * ((colIndex %% 3) + 1) ^ multiplier
    
    values <- c(values, val)  
  }
  
  unlist(values)
}

encode <- function(data) {
  encodings <- c()
  
  rowEncodings <- data.frame(ncol=3)
  for (colIndex in 1:ncol(data)) {
    # Get the data per row.
    rowEncodings <- cbind(rowEncodings, encodeValues(data[,colIndex], colIndex))
  }
  rowEncodings$ncol <- NULL

rowEncodings <- t(rowEncodings)
  
  # Convert all rows into their numeric representation.
  #rowEncodings <- t(data.frame(encode(r1, 1), encode(r2, 2), encode(r3, 3)))
  
  # Sum each 3x3 set of values.
  for (index in seq(from=1, to=ncol(rowEncodings), by=3)) {
    encodings <- c(encodings, sum(rowEncodings[1:3, index:(index+2)]))
  }
  
  encodings
}

asciiToDigits <- function(ascii) {
  match(encode(ascii), digits) - 1
}

# Get the baseline digit encodings.
digits <- encode(numbers)

# Challenge inputs.
input <- list(
  list(
    ascii=data.frame(
      unlist(strsplit(' _ ', '')),
      unlist(strsplit(' _|', '')),
      unlist(strsplit(' _|', ''))
    ), result=c(3)
  ),
  
  list(
    ascii=data.frame(
      unlist(strsplit('       _  _ ', '')),
      unlist(strsplit('|_|  | _| _|', '')),
      unlist(strsplit('  |  ||_  _|', ''))
    ), result=c(4,1,2,3)
  ),

list(
    ascii=data.frame(
      unlist(strsplit('    _  _  _  _  _  _  _  _ ', '')),
      unlist(strsplit('|_| _| _||_|| ||_ |_| _||_ ', '')),
      unlist(strsplit('  | _| _||_||_| _||_||_  _|', ''))
    ), result=c(4,3,3,8,0,5,8,2,5)
  ),

list(
    ascii=data.frame(
      unlist(strsplit(' _  _  _  _  _  _  _  _  _ ', '')),
      unlist(strsplit('|_  _||_ |_| _|  ||_ | ||_|', '')),
      unlist(strsplit(' _||_ |_||_| _|  ||_||_||_|', ''))
    ), result=c(5,2,6,8,3,7,6,0,8)
  ),

list(
    ascii=data.frame(
      unlist(strsplit(' _  _        _  _  _  _  _ ', '')),
      unlist(strsplit('|_||_ |_|  || ||_ |_ |_| _|', '')),
      unlist(strsplit(' _| _|  |  ||_| _| _| _||_ ', ''))
    ), result=c(9,5,4,1,0,5,5,9,2)
  )
)

# Get results!
results <- sapply(input, function(data) {
  asciiToDigits(data$ascii)
})
# Convert list to string.
results <- sapply(results, function(result) {
  paste0(result, collapse='')
})
print(results)

# Unit test the results (should all be true).
if (all(
      unlist(sapply(seq_along(results), function(index) {
        results[[index]] == paste0(input[[index]]$result, collapse='')
      })))) {
  print('All checks pass!')
} else {
  print('Fail!')
}

[ + ] Show input
Absolute running time: 0.96 sec, cpu time: 1.26 sec, memory peak: 31 Mb, absolute service time: 0,97 sec