by@kurgm
AC
486ms
@z=glob`dd`;$A+=(@z[$_][email protected][$_+3])*($_>5&&@z[++$_%3+3]*@z[++$_%3][email protected][$_%3+3]*@z[--$_%3])for 0..8;print$A/6
09 12 98 14 20 61 05 56 09 68 14 54
7357
0+1 records in 0+1 records out