inverse matrix by ySas

for$m(@m=(map[split,@a=(!@a,@a[0..7])],<>)[-2..6]){$@=$$m[$i++];$_/=$@for@$m;$m==$_||($b=$$_[$i-1],map$_-=$b*$$m[$j++%18],@$_)for@m}print"@{[map+int$_+.5*($_<=>0),@$_[9..17]]}
"for@m

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

download

return to the top page