NB. Afin_MagicSq.ijs NB. Latin Matrix and Magic Square NB. 「幾何の魔術」 佐藤肇 一楽重雄 NB. 修正が必要 p.1, p.6 NB. 3*3 Magic Square ============================================= N =: i.3 M0 =: (3,3) $ N MR =: (N ,: (1 |. N)) , (2 |. N) ML =: (N ,: (2 |. N)) , (1 |. N) Mahoujin =: 3 3 $ ; >: (L:0) 3 #. L:0 (< "(0) ML) ,L:0 (< "(0) MR) Magic =: ((2{Mahoujin),: (0{Mahoujin)) , (1{Mahoujin) diag =: i. @ # {"_1 ] NB. 5*5 Magic Square ============================================== NN =: i.5 MM0 =: (5,5) $ NN MMR =: ((NN ,: (1 |. NN)) , (2 |. NN) ,: (3 |. NN)) , (4 |. NN) MML =: (((NN ,: (4 |. NN)) , (3 |. NN)), (2 |. NN)) , (1 |. NN) MMahoujin =: (<"(0) MML) , L:0 (<"(0) MMR) MMagic =: (5, 5) $ ; 5 #. L:0 MMahoujin Magic55 =: 1 + ((3, 4) { MMagic) , (0, 1, 2) { MMagic