$_=<>;@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