General FizzBuzz: Difference between revisions
Added R.
ReeceGoding (talk | contribs) (Added R.) |
|||
Line 2,650:
Four Two eight...
</pre>
=={{header|R}}==
The task asks that we assume 3 factors for the sake of simplicity. However, R makes the k factors case not much more complicated, so we will do that. The only major downside is that checking for malformed user input becomes so difficult that we will not bother.
<lang r>genFizzBuzz<-function(n,...)
{
args<-list(...)
#R doesn't like vectors of mixed types, so c(3,"Fizz") is coerced to c("3","Fizz"). We must undo this.
#Treating "[[" as if it is a function is a bit of R's magic. You can treat it like a function because it actually is one.
factors<-as.integer(sapply(args, "[[", 1))
words<-sapply(args, "[[", 2)
sortedPermutation<-sort.list(factors)#Required by the task: We must go from least factor to greatest.
factors<-factors[sortedPermutation]
words<-words[sortedPermutation]
for(i in 1:n)
{
validFactorIndices<-i %% factors == 0
if(sum(validFactorIndices)==0){print(i)}else{print(paste0(words[validFactorIndices],collapse = ""))}
}
invisible()
}
genFizzBuzz(105,c(3,"Fizz"),c(5,"Buzz"),c(7,"Baxx"))
genFizzBuzz(105,c(5,"Buzz"),c(9,"Prax"),c(3,"Fizz"),c(7,"Baxx"))</lang>
=={{header|Racket}}==
| |||