アレイを使ってn進法

# n進法
n<-2
d<-rep(n,10)
a<-array(1:prod(d),d)
a
for(i in 1:10){
	print(paste("10進法の数:",i-1))
	x<-which(a==i,arr.ind=TRUE)
	print(x[length(x):1]-1)
}

[1] "10進法の数: 1"
 [1] 1 1 1 1 1 1 1 1 1 1
[1] "10進法の数: 2"
 [1] 1 1 1 1 1 1 1 1 1 2
[1] "10進法の数: 3"
 [1] 1 1 1 1 1 1 1 1 2 1
[1] "10進法の数: 4"
 [1] 1 1 1 1 1 1 1 1 2 2
[1] "10進法の数: 5"
 [1] 1 1 1 1 1 1 1 2 1 1
[1] "10進法の数: 6"
 [1] 1 1 1 1 1 1 1 2 1 2
[1] "10進法の数: 7"
 [1] 1 1 1 1 1 1 1 2 2 1
[1] "10進法の数: 8"
 [1] 1 1 1 1 1 1 1 2 2 2
[1] "10進法の数: 9"
 [1] 1 1 1 1 1 1 2 1 1 1
[1] "10進法の数: 10"
 [1] 1 1 1 1 1 1 2 1 1 2

• そういえば、こちらでN進法を扱っていた