2014-03-05 - 驚異のアニヲタ社会復帰への道 ここで、国立が苦戦との分析がある。 glmで解析してみた。 やはり多分私立の書きまつがいと思う。 a <- matrix(scan("clipboard", quiet=TRUE), byrow=TRUE, ncol=3) df <- data.frame(total = a[,1], yaba = a[,…

リスペクトしているサイトの一つ裏 RjpWikiで、コードの 改良がなされていた。 なんと、 gtools の permutations() で爆速のコードを実現している。 permutations()でも、問題に特化して探索範囲を狭くすれば 実行時間の桁が変わることが分かった。 勉強にな…