Graph by I., S.

{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