覆面算4

謹賀新年（2017年）　〜覆面算〜
http://quiz-tairiku.com/q.cgi?mode=view&no=18772

　　　　　　　　　　　　　　とび
　　　ひのととり　　　ー　たとう　　　　　
　　＋　ひのとり　　　ー　　たび
　　＋　のように　　　ー　とりの
　　＋　とうとい　　　＋　ように
　　−−−−−−−−−−−　　−−−−−−−−−−
　　　２０１７に　　　　　　２９
定数はそのまま（他の文字がかぶっても構わない）


f = function() {
    library(e1071)
    a = permutations(10)-1
    a = a[a[,1] != 0 & a[,2] != 0 & a[,3] != 0 & a[,10] != 0 & a[,5] != 0,]
    a1 = a[,c(1,2,3,3,4)] %*% 10^(4:0)
    a2 = a[,1:4] %*% 10^(3:0)
    a3 = a[,c(2, 5:7)] %*% 10^(3:0)
    a4 = a[,c(3,6,3,8)] %*% 10^(3:0)
    a5 = 20170+a[,7]
    b1 = a[,c(3,9)] %*% 10^(1:0)
    b2 = a[,c(10,3,6)] %*% 10^(2:0)
    b3 = a[,c(10,9)] %*% 10^(1:0)
    b4 = a[,c(3,4,2)] %*% 10^(2:0)
    b5 = a[, 5:7] %*% 10^(2:0)
    i = which(a1+a2+a3+a4 == a5 & b1-b2-b3-b4+b5 == 29)
    cat(sprintf("%7d\n%7d\n%7d\n+%6d\n--------\n%7d\n\n", a1[i], a2[i], a3[i], a4[i], a5[i]))
    cat(sprintf("%7d\n-%6d\n-%6d\n-%6d\n+%6d\n--------\n%7d\n", b1[i], b2[i], b3[i], b4[i], b5[i], 29))
}
f()

  12338
   1238
   2967
+  3634
--------
  20177

     30
-   536
-    50
-   382
+   967
--------
     29