Symmetric matrix by nfouille

$_=<>;@a=split;$n=$#a;$r[0]=[@a];for$i(1..$n){$_=<>;@a=split;map{$r[$i][$_]=$_<$i?$r[$_][$i]:shift@a}0..$n}map{print"@{$r[$_]}\x0d
"}0..$n

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

download

return to the top page