Code:
S[A_, n_] := If[n == 1,
Return[A[[1]]];
,
Return[A[[n]] * S[A, n - 1]];
];
Code:
S[A_, n_] := If[n == 1,
Return[A[[1]]];
,
Return[A[[n]] * S[A, n - 1]];
];
|
|