a=matrix(scan("stdin"),6);write(a[b<-c(2,3,1),]*a[d<-c(6,4,5),]-a[d-3,]*a[b+3,],1,3)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page