{p=$1;n=$2 for(i=0;i++<n;V[i]=1==i)for(j=0*getline;j++<n;)M[i,j]=$j for(;p--;split($0,V))for(i=0;i++<n;)for(j=$i=0;j++<n;)$i+=M[i,j]*V[j]}sub(/[^ ]+ /,_)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page