Matrix Product by ludo

f=file("stdin","r");m=c()
repeat{m=cbind(m,a<-scan(f,nlines=1))
any(a)&&next
if(a<-ncol(m))m=write(c(m[0:-a,]%*%m[1:a,],""),1,a)}

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