Multifactorial: Difference between revisions
m
→Sequence solution
ReeceGoding (talk | contribs) (→{{header|R}}: Sequence solution) |
ReeceGoding (talk | contribs) |
||
Line 1,515:
}</lang>
===Sequence solution===
This task doesn't use big enough numbers to need efficient code, so R
<lang r>mfact<-function(n,deg){prod(seq(from = n, to = 1, by = -deg))}
outer(1:10,1:5,Vectorize(mfact))</lang>
|