AI-MicroStructure
    
    
  
  
  
view release on metacpan or search on metacpan
bin/from-folder.pl view on Meta::CPAN
p @{[keys %$files,reverse @ARGV,$storage]};
__DATA__
our $c = AI::MicroStructure::Context->new(@ARGV);
    $c->retrieveIndex($PWD."/t/docs"); #"/home/santex/data-hub/data-hub" structures=0 text=1 json=1
   my $style = {};
      $style->{explicit}  = 1;
ok($c->simpleMixedSearch($style,$_)) && ok($c->play($style,$_))   for
 qw(atom antimatter planet);
ok(print Dumper $c->intersect($style,$_)) for
 qw(atom antimatter planet);
ok(print Dumper $c->similar($style,$_)) for
 qw(atom antimatter planet);
#p @out;
1;
package main;
$|++;
use strict;
  print Dumper [$set];
  }
our $files={};
   my $style = {};
      $style->{explicit}  = 1;
  our $c = AI::MicroStructure::Context->new(@ARGV);
      $c->retrieveIndex($TOP);#"data-hub" structures=0 text=1 json=1
      my $cg = $c->{graph}->{content};
         my @ranked_docs = $cg->simple_search( 'peanuts' );
         # get back both related terms and docs for more power
         my ( $docs, $words ) = $cg->search('dna');
}
p $files;
__DATA__
our $c = AI::MicroStructure::Context->new(@ARGV);
    $c->retrieveIndex($PWD."/t/docs"); #"/home/santex/data-hub/data-hub" structures=0 text=1 json=1
   my $style = {};
      $style->{explicit}  = 1;
ok($c->simpleMixedSearch($style,$_)) && ok($c->play($style,$_))   for
 qw(atom antimatter planet);
ok(print Dumper $c->intersect($style,$_)) for
 qw(atom antimatter planet);
ok(print Dumper $c->similar($style,$_)) for
 qw(atom antimatter planet);
#p @out;
1;
package main;
$|++;
use strict;
( run in 0.637 second using v1.01-cache-2.11-cpan-5dc5da66d9d )