a b c d e f
S ← ↑(1 ¯1)(¯1 2)(1 4)(4 3)(7 5)
↑(¯7 13)(6 24)(17 13)
{(⍵⌷⍨⊂0,1-⍨≢⍵)-⍨@(0,3-⍨≢⍵)⊢6ׯ1↓1↓⍵}
(↑(¯1 6 0 0 0 0)(0 0 6 0 0 0)(0 0 0 6 0 0)(0 0 0 0 6 ¯1))+.×a b c d e f
m⌹⍨SM+.×S
4 4 ⍴ 4 1 0 0 1 4 1 0 0 1 4 1 0 0 1 4
@ngn ┌→──────┐ ↓4 1 0 0│ │1 4 1 0│ │0 1 4 1│ │0 0 1 4│ └~──────┘
⋄⎕io←0⋄n←4⋄⌽↑n,/(⌽,1∘↓)n↑n 1
⋄⎕io←0⋄n←4⋄n n⍴1,⍨n↑n 1
b←{n←2-⍨≢⍵ CM←(⌽¯1↑⍨n),⍨(¯1↑⍨n),6×=/↑⍳2⍴n M←4 1 0[2⌊|-/↑⍳2⍴n] M⌹⍨CM+.×⍵ }