test_70.mils

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

setoid(oid(20000000));
#This collection of examples is geared at the support
#of the data mining tool

var b:= new(int,int);
b.insert(1,15);
b.insert(2,15);

b.sum().print();
b.insert(3,int(nil));
b.sum().print();

b.insert(4,15);
b.insert(5,25);
b.insert(6,36);
b.insert(7,49);
b.insert(8,64);
b.insert(9,int(nil));

var t:= b.histogram();
t.print();
commit();

var s:= new(int,str);
insert(s,1,"hello");
insert(s,2,"hello");
insert(s,3,"hello");
insert(s,4,"dello");
insert(s,5,"eello");
insert(s,6,"fello");
insert(s,7,"fello");
insert(s,8,"fello");
var t2:= s.histogram();
t2.print();

#It requires a few additional routines
var c:= new(int,int);
c.insert(1,15);
c.insert(2,15);
c.insert(3,int(nil));
c.insert(4,0);
c.insert(5,30);

c.print();
var d:= [<](b,c);
d.print();

d:= [<](c,b);
d.print();

d:= [>](c,b);
d.print();
quit();