by@taiyoslime
AC
514ms
@z=glob`dd`;$A+=int($_/6)*(@z[$_][email protected][$_+3])*(@z[++$_%3+3]*@z[$t=($_%3+1)%3][email protected][$_%3]*@z[$t+3])for 0..8;print$A/6
92 27 22 85 01 57 68 77 31 61 01 27
12806
0+1 records in 0+1 records out