R/run_solve_random_letter_marix.R

In jolyonfaria/wordsearchgame: Word finder for a popular word game

#' run_random_letter_matrix
#'
#' @description Find possible words in letter matrix.
#'
#' @param known_words Table of known words
#' @param word_letters Table of known words
#' @param letter_matrix Table of known words
#' @param word_length Table of known words
#' @return A character vector of known words that are in the letter matrix
#' @export
run_solve_random_letter_matrix <- function(letter_matrix, known_words, word_length, word_letters = NA) {
  word_lengths <- rep(word_length, word_length)
  mers_tree <- make_mers_tree(letter_matrix)
  possible_words <- find_possible_words(mers_tree, known_words, word_lengths, word_letters)
  return(possible_words)
}

#' Make letter matrix from known words
#'
#' @description Make letter matrix from known words.
#'
#' @param word_length Number of characters in words
#' @param known_words Table of known words
#' @return Letter matrix
#' @export
run_make_letter_matrix <- function(known_words, word_length) {
  word_lengths <- rep(word_length, word_length)
  words <- c()
  for (i in seq(1, word_length)) {
    words <- c(words, get_random_word(known_words, word_lengths))
  }
  letter_matrix <- make_letter_matrix(words, word_length)
  return(letter_matrix)
}