id.916699.mils

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

## integers from -25 to 24
var a := bat(void, int,50).seqbase(0@0);
var i := -25;
while(i < 25) a.insert(nil, (i :+= 1));

## reverse() sort() and split into 2 chunks
a := a.sort_rev().reverse().mark(0@0).reverse();
VAR sliced := a.rangesplit(2);

sliced.fetch(0).print();
sliced.fetch(1).print();


module("radix");
VAR b := uniform(50).reverse().mark(0@0).reverse().[-](24);
VAR sliced := b.rangesplit(2);

VAR c := b.reverse().sort().reverse();
VAR s0 := c.slice(0,24);
VAR r0 := sliced.fetch(0).reverse().sort().reverse();
VAR s1 := c.slice(25,50);
VAR r1 := sliced.fetch(1).reverse().sort().reverse();

print(sdiff(s0,r0));
print(sdiff(r0,s0));
print(sdiff(s1,r1));
print(sdiff(r1,s1));