by@hakatashi
WA
531ms
:let l=[] :for i in range(4) for c in split(getline(i+1),'\_s') call add(l,str2nr(c)) endfor call setline(i+1,'') endfor :for i in range(12) let l[i]-=l[i%3] endfor :call setline(1, (l[3]*l[7]*l[11]+l[6]*l[10]*l[5]+l[9]*l[4]*l[8]-l[5]*l[7]*l[9]-l[8]*l[10]*l[3]-l[11]*l[4]*l[6])/6) ZZ
:let l=[]<NL>:for i in range(4)<NL>for c in split(getline(i+1),'\_s')<NL>call add(l,str2nr(c))<NL>endfor<NL>call setline(i+1,'')<NL>endfor<NL>:for i in range(12)<NL>let l[i]-=l[i%3]<NL>endfor<NL>:call setline(1, (l[3]*l[7]*l[11]+l[6]*l[10]*l[5]+l[9]*l[4]*l[8]-l[5]*l[7]*l[9]-l[8]*l[10]*l[3]-l[11]*l[4]*l[6])/6)<NL>ZZ
75 02 53 40 75 79 84 85 65 29 69 60
8520