r-statistics-fanの日記

統計好き人間の覚書のようなもの

2014-08-07から1日間の記事一覧

子供がやってた算数問題(その3くらい?)

R

□=1~9(重複しない) ちょ、難しいんだけど。 唯一解なのか分からない。総当りで確認する。 library(e1071)f1 <- function(){s <- permutations(9)ans <- s[,1] / (10*s[,2] + s[,3]) + s[,4] / (10*s[,5] + s[,6]) + s[,7] / (10*s[,8] + s[,9])return(…