sangaku0418 https://blog.hatena.ne.jp/sangaku0418/ 算額あれこれ https://sangaku0418.hatenablog.com/ ブログラミング 図のような，「サグラダ・ファミリア」の「受難のファサード」にある魔方陣で下記の条件で足し算をした結果，その和が同じになる組み合わせが最も多くなるような値(和)を求めよ。 ・足し合わせるのは、縦、横、斜めに限らない ・足し合わせる数字の個数は4つに限らないlibrary(e1071)d = bincombinations(16)w = c(1, 14, 14, 4, 11, 7, 6, 9, 8, 10, 10, 5, 13, 2, 3, 15)freq = table(apply(d, 1, function(x) sum(x*w)))freq[which.max(freq)]実行結果は， 6… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsangaku0418.hatenablog.com%2Fentry%2F2014%2F11%2F19%2F130915" title="総当たり足し算 - 算額あれこれ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-11-19 13:09:15 rich https://sangaku0418.hatenablog.com/entry/2014/11/19/130915 1.0 100%