R函数实现n个方阵相乘

终极解法

fun <- function(x,n){
expr = paste(rep('mat',n),collapse = '%*%')
result = eval(parse(text=expr))
return(result)
}
===============

递归实现

f <- function(x,n){
if(n == 1){
return(x)
}
return(f(x,n-1) %*% x)
}