> tmp <- rep(0, 5)
> count = 0
> for (i in 1:5){
+   for (j in 1:10){
+     tmp <- rep(0, 5)
+     if (j-1 != tmp[i]){
+       tmp[i] <- j-1
+       print(tmp)
+       count = count + 1
+     }
+   }
+ }
[1] 1 0 0 0 0
[1] 2 0 0 0 0
[1] 3 0 0 0 0
[1] 4 0 0 0 0
[1] 5 0 0 0 0
[1] 6 0 0 0 0
[1] 7 0 0 0 0
[1] 8 0 0 0 0
[1] 9 0 0 0 0
[1] 0 1 0 0 0
[1] 0 2 0 0 0
[1] 0 3 0 0 0
[1] 0 4 0 0 0
[1] 0 5 0 0 0
[1] 0 6 0 0 0
[1] 0 7 0 0 0
[1] 0 8 0 0 0
[1] 0 9 0 0 0
[1] 0 0 1 0 0
[1] 0 0 2 0 0
[1] 0 0 3 0 0
[1] 0 0 4 0 0
[1] 0 0 5 0 0
[1] 0 0 6 0 0
[1] 0 0 7 0 0
[1] 0 0 8 0 0
[1] 0 0 9 0 0
[1] 0 0 0 1 0
[1] 0 0 0 2 0
[1] 0 0 0 3 0
[1] 0 0 0 4 0
[1] 0 0 0 5 0
[1] 0 0 0 6 0
[1] 0 0 0 7 0
[1] 0 0 0 8 0
[1] 0 0 0 9 0
[1] 0 0 0 0 1
[1] 0 0 0 0 2
[1] 0 0 0 0 3
[1] 0 0 0 0 4
[1] 0 0 0 0 5
[1] 0 0 0 0 6
[1] 0 0 0 0 7
[1] 0 0 0 0 8
[1] 0 0 0 0 9
> count
[1] 45