powered by
bl.string(no)
character(1)
n == nchar(bl.string(n))
paste
character
nchar
r <- sapply(0:8, function(n) ccat(bl.string(n),n)) cbind(r) bl.string # shows the very simple function definition
Run the code above in your browser using DataLab