假装没看到2楼的吐槽,如果只是想了解一下R的基本语法:
<br />
for(i in 1001:9999){<br />
i.char = as.character(i)<br />
j = i * 9<br />
j.char = as.character(j)<br />
j.char.array = strsplit(j.char, NULL)[[1]]<br />
j.char.array.rev =rev(j.char.array)<br />
j.char.rev = paste(j.char.array.rev, collapse = "")</p>
<p> if(i.char == j.char.rev){<br />
print(i)<br />
}<br />
}<br />
当然可以写的更短:
<br />
for(i in 1001:9999){<br />
if(as.character(i) == paste(rev(strsplit(as.character(i*9), NULL)[[1]]), collapse="")){<br />
print(i)<br />
}<br />
}<br />
</p>