BEGIN{RS=RSRS}{for(i=0;i<n=(NF/2)^.5;i++)for(j=0;j++<n;){for(s=k=0;k<n;)s+=$(n+j+k++*n*2)*$(2*i*n+k);printf(n>j?s FS:s"\n")}$0=x}1

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page