by@lip_of_cygnus
WA
517ms
00000000 56 47 4a 3a 6c 65 74 20 6c 3d 6d 61 70 28 73 70 |VGJ:let l=map(sp| 00000010 6c 69 74 28 67 65 74 6c 69 6e 65 28 31 29 2c 27 |lit(getline(1),'| 00000020 20 27 29 2c 27 73 74 72 32 6e 72 27 29 0a 3a 66 | '),'str2nr').:f| 00000030 6f 72 20 69 20 69 6e 20 72 61 6e 67 65 28 39 29 |or i in range(9)| 00000040 0a 6c 65 74 20 6c 5b 69 5d 2d 3d 6c 5b 39 2b 69 |.let l[i]-=l[9+i| 00000050 25 33 5d 0a 65 6e 64 66 6f 72 0a 63 63 12 3d 28 |%3].endfor.cc.=(| 00000060 6c 5b 38 5d 2a 28 6c 5b 34 5d 2a 6c 5b 30 5d 2d |l[8]*(l[4]*l[0]-| 00000070 6c 5b 31 5d 2a 6c 5b 33 5d 29 2d 6c 5b 37 5d 2a |l[1]*l[3])-l[7]*| 00000080 28 6c 5b 30 5d 2a 6c 5b 35 5d 2d 6c 5b 32 5d 2a |(l[0]*l[5]-l[2]*| 00000090 6c 5b 33 5d 29 2b 6c 5b 36 5d 2a 28 6c 5b 31 5d |l[3])+l[6]*(l[1]| 000000a0 2a 6c 5b 35 5d 2d 6c 5b 34 5d 2a 6c 5b 32 5d 29 |*l[5]-l[4]*l[2])| 000000b0 29 2f 36 0a 1b 5a 5a |)/6..ZZ| 000000b7
VGJ:let l=map(split(getline(1),' '),'str2nr')<NL>:for i in range(9)<NL>let l[i]-=l[9+i%3]<NL>endfor<NL>cc<C-R>=(l[8]*(l[4]*l[0]-l[1]*l[3])-l[7]*(l[0]*l[5]-l[2]*l[3])+l[6]*(l[1]*l[5]-l[4]*l[2]))/6<NL><Esc>ZZ
49 27 33 89 31 71 45 91 08 07 16 86
-38924