#!/usr/bin/perl -w
use Benchmark;
use blib;
use Search::ContextGraph;
my $file = shift;
my $xs = shift or 0;
my $cg = Search::ContextGraph->new(dist_weight => 1, xs => $xs);
print "Loading from TDM\n";
$cg->load_from_tdm( $file );
print "Done\n";
my @t = $cg->dump_words();
#print join "\n", @t;
use Data::Dumper;
#$cg->search( $t[1] );
#print Dumper( $cg);
#exit;
$zip = 0;
timethis(5_000,
sub { my ( $docs, $words ) = $cg->mixed_search( { terms => [111,109,23], docs => [33,21,12] }) ;
# foreach my $k ( sort keys %{$words} ) {
# print $k, ' ', $words->{$k}, "\n";
# }
# print "\n\n-----------\n";
});