nクイーン問題 前回、解を探そうと思い書いてみたが、振動してしまって解にならなかった 少し改良：ノイズ入りの方法 改良点は第51行 改良前 dir<-sample(c(which(u==min(u)),which(u==min(u))),1) 改良後 dir<-sample(c(rep(which(u==min(u)),times=10),1:8…