Matrix Product by olf

f=file("stdin","r")
for(i in 0:99){m=matrix(c(a<-scan(f,nlines=1),scan(f,nlines=n<-length(a)/2)),,n)
write(m[0:-n,]%*%m[1:n,],1,n)
cat("
")}

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page