R/fun_convert_algo_base_to_algo_tt.R

In daviddoret/haricot: Algorithm Composition, Manipulation And Analysis

#' convert_algo_base_to_algo_
#'
#' @description This function builds a truth table from an arbitrary algorithm
#' by executing it with all possible inputs.
#' Of course, this function is highly inefficient
#' and may only be applied to low input dimensional algorithms.
#'
#' @examples # R function style:
#' a1 <- algo_not$new();
#' a2 <- convert_algo_base_to_algo_(a1);
#' print(a2);
#'
#' # R6 method style:
#' a3 <- a1$convert_to_algo_();
#' print(a3);
#'
#' @param algo An arbitrary algorithm (R6 Class algo_base)
#' @return The equivalent truth-table-based algorithm (R6 Class algo_)
#' @export
convert_algo_base_to_algo_ <- function(algo){
  dim_i <- algo$get_dim_i();
  dim_o <- algo$get_dim_o();
  tt <- algo_tt$new(
    dim_i = dim_i,
    dim_o = dim_o);
  input_binarynumber <- bnum$new(input = rep(FALSE, dim_i));

  repeat{
    output_binarynumber = algo$exec(input_binarynumber);
    tt$set_output(input = input_binarynumber, output_binarynumber);

    input_binarynumber$do_increment();
    if(input_binarynumber$get_equal_0()){
      break;
    }
  }

  return(tt);
}