fbfun1 <- function(xfoo) {
xfoo<-1:xfoo
fbfoo <- 1+(!as.logical(mod(xfoo,3)))*(as.logical(mod(xfoo,5))) + 2*(as.logical(mod(xfoo,3)))*(!as.logical(mod(xfoo,5)))+3*(!as.logical(mod(xfoo,3)))*(!as.logical(mod(xfoo,5)))
fbbar <- unlist(lapply(fbfoo, function(x) switch(x,0,'fizz','buzz','fizzbuzz')))
return(fbbar)
}
fbfun3 <- function(xfoo) {
xfoo<-1:xfoo
fbfoo <- 1+(!as.logical(mod(xfoo,3)))*(as.logical(mod(xfoo,5))) + 2*(as.logical(mod(xfoo,3)))*(!as.logical(mod(xfoo,5)))+3*(!as.logical(mod(xfoo,3)))*(!as.logical(mod(xfoo,5)))
fbtab<-cbind(1:4,c('','fizz','buzz','fizzbuzz'))
fbbar <- fbtab[fbfoo,2]
return(fbbar)
}
fbfun4 <- function(xfoo) {
fiz<- rep(c('','','fizz'),length.out=xfoo)
buz<-rep(c('','','','','buzz'),length.out=xfoo)
fbbar <- unlist(lapply(1:xfoo, function(j)paste(fiz[j],buz[j]) ) )
return(fbbar)
}
# or completely sleazy:
fbfun5 <- function(xfoo) {
fiz<- rep(c('','','fizz','','buzz','fizz','','','fizz','buzz','','fizz','','','fizzbuzz'),length.out=xfoo)
return(fiz)
}