謹賀新年(2017年) 〜覆面算〜
http://quiz-tairiku.com/q.cgi?mode=view&no=18772
とび
ひのととり ー たとう
+ ひのとり ー たび
+ のように ー とりの
+ とうとい + ように
−−−−−−−−−−− −−−−−−−−−−
2017に 29
定数はそのまま(他の文字がかぶっても構わない)
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
最新の画像[もっと見る]
- 算額(その2135) 9時間前
- 算額(その2134) 16時間前
- 算額(その2133) 1日前
- 算額(その2132) 3日前
- 算額(その2131) 4日前
- 算額(その2130) 4日前
- 算額(その2129) 5日前
- 算額(その2128) 5日前
- 算額(その2127) 6日前
- 算額(その2126) 6日前
※コメント投稿者のブログIDはブログ作成者のみに通知されます