no.107.mils

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

setoid(oid(20000000));

# [t_i, n_i]
w.histogram().print();

#split w in twee tabellen
var docid := new( void, oid );
var tid := new( void, str );
docid.insert( w.mark(nil).reverse() );
docid.print();
tid.insert( w.reverse().mark(nil).reverse() );
tid.print();

docid.seqbase( 1000@0 );
docid.print();
tid.seqbase( 1000@0 );
tid.print();
tid.reverse().print();
var tidx:=tid.copy();
tidx.print();
var tidy:=([oid](tid)).copy();
tidy.print();
print( docid, tid );

module( "xtables" );
CTgroup( docid, tid ).print();

# t_i, tf_ij
join( tidx.reverse(), CTgroup( docid, tid ).histogram()).print();
join( tidy.reverse(), CTgroup( docid, tid ).histogram()).print();
join( tid.reverse(), CTgroup( docid, tid ).histogram()).print();
# d_j, max tf_j
var djtfij := new( oid, int );
djtfij.insert( join( docid.reverse(), CTgroup( docid, tid ).histogram() ) );

{max}(djtfij).print();

# This way it works. However, if I do not do an explicit new and insert,
# then the server crashes as follows:

var djtfijx :=join( docid.reverse(), CTgroup( docid, tid ).histogram() );
{max}(djtfijx).print();
quit();