最外周以外のすべてのセルのムーア近傍（Moore neighborhood）の和を求める。 最外周のセルを削除してから返す。 Define moore_sum(mat_torus)= Func :©最外周以外のすべてのセルのムーア近傍の和を求める。 :Local rdim,cdim,mat_temp,r,c,temp : :©ムーア…