算数パズルの解を求めるプログラム

子供がやってた算数問題(改)
http://r-statistics-fan.hatenablog.com/entry/2014/03/03/220956　にあるプログラム。

最初の部分を

    s = permutations(10)
    s = s[s[,5]==6,]

    a = b = c = d = e = f = g = numeric(nrow(s))

とするだけで，処理時間は元の 60% ほどになる。代入記号に = を使うのは，このブログの欠陥を回避するため。

permutations がほとんどの時間を取るので，それ以外の箇所をいじっても，あまり効果はなさそう。