Multifactorial: Difference between revisions
→Sequence solution: Made output nicer looking.
ReeceGoding (talk | contribs) |
ReeceGoding (talk | contribs) (→Sequence solution: Made output nicer looking.) |
||
Line 1,518:
<lang r>mfact<-function(n,deg){prod(seq(from = n, to = 1, by = -deg))}
outer(1:10,1:5,Vectorize(mfact))</lang>
If we really insist on a pretty table, then we can
<lang r>mfact<-function(n,deg){prod(seq(from = n, to = 1, by = -deg))}
n<-1:10; names(n)<-n
deg<-1:5; names(deg)<-paste("Degree",deg)
t(outer(n,deg,Vectorize(mfact)))</lang>
{{out}}
<pre>> outer(1:10,1:5,Vectorize(mfact))
Line 1,537:
[10,] 3628800 3840 280 120 50
> t(outer(n,deg,Vectorize(mfact)))#"Pretty" version
Degree 1 1 2 6 24 120 720 5040 40320 362880 3628800
▲1 1 1 1 1 1
Degree 3 1
Degree 4 1 2 3 4
Degree 5 1 2 3 4
=={{header|Racket}}==
|