fork download
copy 
  1. base_perm <- function(base, index = NULL, value = NULL) {
  2.   if(length(index) != 0) {
  3.     n <- floor(logb((base-index*(1-base)), base))
  4.     n_start <- (base-base^n)/(1-base)
  5.     aval <- lapply(1:n, function(x) return(0:(base-1)))
  6.     grid <- expand.grid(aval)
  7.     row <- index-n_start+1
  8.     return(cat(unlist(rev(grid[row,])), "\n"))
  9.   }
  10.   if(length(value) != 0) {
  11.     value <- rev(as.numeric(strsplit(value, "")[[1]]))
  12.     n <- length(value)
  13.     n_start <- (base-base^n)/(1-base)
  14.     aval <- lapply(1:n, function(x) return(0:(base-1)))
  15.     grid <- expand.grid(aval)
  16.     row <- 0
  17.     stop <- T
  18.     while(stop) {
  19.       row <- row+1
  20.       if(all(grid[row,] == value))
  21.         stop <- F
  22.     }
  23.     return(cat(row+n_start-1, "\n"))
  24.   }
  25. }
  26.  
  27. base_perm(2, 54)
  28. base_perm(2, value = "111000111")
Success #stdin #stdout 0.39s 176448KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
1 1 0 0 0 
965
https://ideone.com/a3DwDE
language:
R (R 3.5.2)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!