by@taiyoslime
AC
523ms
@z=glob`dd`;$A+=int($_/6)*(@z[$_][email protected][$_+3])*(@z[$s=++$_%3+3]*@z[$t=($s+1)%3][email protected][$s-3]*@z[$t+3])for(0..8);print$A/6
97 79 38 53 55 74 04 01 85 76 40 90
12840
0+1 records in 0+1 records out