データの出力時にrownamesを出したくない/ポケモンGO,ラッキーCP777になる固体値全部
#注意：2018.10.10 近い将来CPなどのデータが調整されるとのことです。
#CP値などのデータは更新前の2018.10.09現在の値なのでご注意ください。
ふつうに行列をコンソールに出力すると
> lucky777
AT DF HP Lv
[1,] 0 2 14 24
[2,] 0 3 11 24
[3,] 0 3 12 24
[4,] 0 4 8 24
[5,] 0 4 9 24
のようにrownamesがNULLであっても、[1,] のように何行目か
分かるようにコンソールに出力される。
これを消したい。
write.table(lucky777, "", quote=F, sep="\t", row.names=F, col.names=T)
のようにwrite.tableで出力ファイルを""にすれば、コンソールにcolnamesのみ
出力される。
以下ラッキーがCP777になるすべての固体値組み合わせ
ans <- list()
ct <- 1
for(i in 0:15){
for(j in 0:15){
for(k in 0:15){
for(l in 1:39){
if(cp.cal(i, j, k, 60, 176, 500, l) == 777){
ans[[ct]] <- c(i,j,k,l)
ct <- ct + 1
}
}}}}
lucky777 <- matrix(unlist(ans), ncol = 4, byrow = TRUE)
colnames(lucky777) <- c("AT", "DF", "HP", "Lv")
write.table(lucky777, "", quote=F, sep="\t", row.names=F, col.names=T)ラッキーがCP777になる固体値/レベルの組み合わせは110も有るようだ。
ラッキー７７７が2体になってほくそ笑んでいたけど、それほどレアでは
ないようだ。
AT DF HP Lv 0 2 14 24 0 3 11 24 0 3 12 24 0 4 8 24 0 4 9 24 0 5 6 24 0 6 3 24 0 7 0 24 1 0 3 24 1 1 0 24 1 1 1 24 1 12 13 23 1 13 10 23 1 14 7 23 1 14 8 23 1 15 5 23 2 6 13 23 2 7 10 23 2 8 7 23 2 8 8 23 2 9 4 23 2 9 5 23 2 10 2 23 3 0 14 23 3 1 11 23 3 2 8 23 3 3 5 23 3 4 2 23 3 5 0 23 4 10 15 22 4 11 12 22 4 12 9 22 4 12 10 22 4 13 6 22 4 13 7 22 4 14 4 22 4 15 1 22 5 5 13 22 5 6 10 22 5 7 7 22 5 8 4 22 5 8 5 22 5 9 2 22 6 0 11 22 6 0 12 22 6 1 9 22 6 2 6 22 6 3 3 22 6 4 0 22 7 10 15 21 7 11 13 21 7 12 10 21 7 13 7 21 7 13 8 21 7 14 5 21 7 15 2 21 8 5 14 21 8 5 15 21 8 6 11 21 8 6 12 21 8 7 9 21 8 8 6 21 8 9 3 21 8 10 0 21 8 10 1 21 9 0 14 21 9 1 11 21 9 2 8 21 9 3 5 21 9 4 2 21 9 5 0 21 10 12 15 20 10 13 12 20 10 13 13 20 10 14 10 20 10 15 7 20 11 7 14 20 11 7 15 20 11 8 12 20 11 9 9 20 11 10 6 20 11 11 3 20 11 11 4 20 11 12 1 20 12 2 14 20 12 2 15 20 12 3 11 20 12 3 12 20 12 4 8 20 12 4 9 20 12 5 6 20 12 6 3 20 12 7 0 20 13 0 6 20 13 1 3 20 13 2 0 20 14 11 13 19 14 11 14 19 14 12 11 19 14 13 8 19 14 14 5 19 14 14 6 19 14 15 3 19 15 6 14 19 15 7 11 19 15 8 8 19 15 9 5 19 15 10 2 19 15 10 3 19 15 11 0 19
