cross.mal

一个内存数据库的源代码这是服务器端还有客户端

a:=bat.new(:oid,:int);
ar:= bat.reverse(a);
io.print(ar);
b:=bat.new(:oid,:int);
io.print(b);

ar:= bat.reverse(a);
c:= algebra.crossproduct(ar,ar);
io.print(c);
bb:= algebra.crossproduct(b,b);
io.print(bb);
ab:= algebra.crossproduct(ar,b);
io.print(ab);
ba:= algebra.crossproduct(b,ar);
io.print(ba);

bat.append(a,1);
ar:= bat.reverse(a);
io.print(ar);

ar:= bat.reverse(a);
c:= algebra.crossproduct(ar,ar);
io.print(c);
bb:= algebra.crossproduct(b,b);
io.print(bb);
ab:= algebra.crossproduct(ar,b);
io.print(ab);
ba:= algebra.crossproduct(b,ar);
io.print(ba);

bat.append(b,11);
io.print(b);

ar:= bat.reverse(a);
c:= algebra.crossproduct(ar,ar);
io.print(c);
bb:= algebra.crossproduct(b,b);
io.print(bb);
ab:= algebra.crossproduct(ar,b);
io.print(ab);
ba:= algebra.crossproduct(b,ar);
io.print(ba);

bat.append(a,2);
ar:= bat.reverse(a);
io.print(ar);

ar:= bat.reverse(a);
c:= algebra.crossproduct(ar,ar);
io.print(c);
bb:= algebra.crossproduct(b,b);
io.print(bb);
ab:= algebra.crossproduct(ar,b);
io.print(ab);
ba:= algebra.crossproduct(b,ar);
io.print(ba);

bat.append(b,22);
io.print(b);

ar:= bat.reverse(a);
c:= algebra.crossproduct(ar,ar);
io.print(c);
bb:= algebra.crossproduct(b,b);
io.print(bb);
ab:= algebra.crossproduct(ar,b);
io.print(ab);
ba:= algebra.crossproduct(b,ar);
io.print(ba);