18/07/06 09:14:03.07 UEcW6fma.net
>>637
ｎ 桁の整数が何通り作れるかの、関数を書いてみた。
f012 <- function(n){
args=list()
length(args)=n-1
args[[1]]=args[[n-1]]=1:2
for(i in 2:(n-2)){
args[[i]]=0:2
}
gr=do.call(expand.grid,args)
gr=as.matrix(gr)
ret=numeric()
for(i in 1:nrow(gr)){
ret[i]=all(diff(gr[i,])!=0)
}
sum(ret)
}
> f012(5)
[1] 10
> f012(8)
[1] 86
と算出してくれる。