如何創建複雜的循環

Question

我堅持爲以下任務創建循環。

1. 這個問題問的是X & y是整數1到100
2. 多少獨特的權力，X^Y，有哪幾種？
3. 我已經瞭解了基本循環，但我不知道從哪裏開始。

這將有助於得到一些建議。

Answer 1

你不需要循環。而是使用lapply，其操作類似於一個循環：

length(unique(unlist(lapply(1L:100L, function(x) (1L:100L)^x)))) 

打破了這一點：

# apply the exponents 1:100 to all values 1:100 
vallist <- lapply(1L:100L, function(x) (1L:100L)^x) 
# form one vector and find all unique values from it: 
u <- unique(unlist(vallist)) 
# number of unique values: 
length(u) 

Answer 2

使用outer：

length(unique(as.vector(outer(1:100, 1:100, "^")))) 
#[1] 9308