intersect_diff_nil.mal

来自「一个内存数据库的源代码这是服务器端还有客户端」· MAL 代码 · 共 38 行

a:=bat.new(:int,:int);
b:=bat.new(:int,:int);
n:=nil:int;
bat.insert(a, 1, 1);
bat.insert(a, n, 2);
bat.insert(a, 3, 3);
bat.insert(a, n, n);
bat.insert(a, 5, 5);
bat.insert(a, 6, n);
bat.insert(a, 7, 7);
bat.insert(b,-1,-1);
bat.insert(b, n, 2);
bat.insert(b,-3,-3);
bat.insert(b, n, n);
bat.insert(b,-5,-5);
bat.insert(b, 6, n);
bat.insert(b,-7,-7);

ka:= algebra.kintersect(a,b);
io.print(ka);
ka:= algebra.kintersect(b,a);
io.print(ka);

ka:= algebra.sintersect(a,b);
io.print(ka);
ka:= algebra.sintersect(b,a);
io.print(ka);

ka:= algebra.kdifference(a,b);
io.print(ka);
ka:= algebra.kdifference(b,a);
io.print(ka);

ka:= algebra.sdifference(a,b);
io.print(ka);
ka:= algebra.sdifference(b,a);
io.print(ka);