view release on metacpan or search on metacpan
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl base.t'
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff::Any qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Algorithm::Diff;
use Data::Dumper;
use Test;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use strict;
use lib '.';
use inc::Module::Install;
name 'Algorithm-Diff-XS';
license 'perl';
all_from 'lib/Algorithm/Diff/XS.pm';
view release on metacpan or search on metacpan
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl base.t'
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Data::Dumper;
use Test;
BEGIN
view release on metacpan or search on metacpan
lib/Algorithm/Evolutionary/Fitness.pm view on Meta::CPAN
use strict; #-*-cperl-*-
use warnings;
use lib qw( ../../../../lib );
=head1 NAME
Algorithm::Evolutionary::Fitness - Base class for fitness functions
view release on metacpan or search on metacpan
script/bitflip.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use lib qw( ../lib lib );
use version; our $VERSION = qv('0.0.3');
use Algorithm::Evolutionary::Simple qw( random_chromosome mutate);
use Time::HiRes qw( gettimeofday tv_interval );
use v5.14;
view release on metacpan or search on metacpan
lib/Algorithm/Evolutionary/Utils.pm view on Meta::CPAN
use strict; #-*-CPerl-*-
use warnings;
use lib qw( ../../../lib );
=encoding utf8
=head1 NAME
view release on metacpan or search on metacpan
lib/Algorithm/Evolutionary/Experiment.pm view on Meta::CPAN
use strict; #-*-CPerl-*- -*- hi-lock -*-
use warnings;
use lib qw( ../../../lib );
=head1 NAME
Algorithm::Evolutionary::Experiment - Class for setting up an
experiment with algorithms and population
view release on metacpan or search on metacpan
examples/breeding_perls.pl view on Meta::CPAN
#!/usr/bin/perl
use lib '../lib';
## This example is geared towards those who are familiar with a certain
## infamous PerlMonks writeup...
##############################################################################
view release on metacpan or search on metacpan
examples/canned_example1.pl view on Meta::CPAN
#!/usr/bin/perl -w
#use lib '../blib/lib', '../blib/arch';
### canned_example1.pl
use strict;
use Algorithm::ExpectationMaximization;
view release on metacpan or search on metacpan
t/99-run_test_classes.t view on Meta::CPAN
#!/usr/bin/perl -T
use lib 't/tests';
use Test::ComplexGraph;
use Test::CyclicGraph;
use Test::ObjectsAsNodes;
use Test::Parameters;
use Test::SingletonGraph;
view release on metacpan or search on metacpan
#!perl -w
use strict;
use lib qw(lib);
use Benchmark qw(cmpthese);
use Algorithm::GenerateSequence;
my $seq1 = Algorithm::GenerateSequence->new( ([1..100]) x 100 );
my $seq2 = Algorithm::GenerateSequence->new( ([1..100]) x 100 );
cmpthese( -2 => {
view release on metacpan or search on metacpan
examples/cluster_after_data_normalization.pl view on Meta::CPAN
#!/usr/bin/perl -w
#use lib '../blib/lib', '../blib/arch';
## cluster_after_data_normalization.pl
## IMPORTANT: Read the 6 point customization of a script like this in the file:
##
view release on metacpan or search on metacpan
eg/kademlia_demo.pl view on Meta::CPAN
use v5.40;
use lib '../lib';
use Algorithm::Kademlia;
#
my $local_id = pack 'H*', '00' x 32;
my $rt = Algorithm::Kademlia::RoutingTable->new( local_id_bin => $local_id );
view release on metacpan or search on metacpan
inc/ExtUtils/testlib.pm view on Meta::CPAN
# relative "blib/lib" onto @INC.
my $cwd;
BEGIN {
($cwd) = getcwd() =~ /(.*)/;
}
use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
1;
__END__
view release on metacpan or search on metacpan
#!/usr/bin/perl
use Test::More tests => 10;
#use lib "../lib";
BEGIN { use_ok( 'Algorithm::Line::Bresenham', qw/line circle quad_bezier ellipse_rect polyline thick_line varthick_line/); }
use Data::Dumper;
view release on metacpan or search on metacpan
examples/example1.pl view on Meta::CPAN
#!/usr/bin/perl -w
#use lib '../blib/lib', '../blib/arch';
## example1.pl
## Highlights:
view release on metacpan or search on metacpan
#!/usr/bin/perl -w
use strict;
use lib qw(../blib/lib ./blib/lib);
use Algorithm::MarkovChain;
use Data::Dumper;
my $mc = Algorithm::MarkovChain->new();
view release on metacpan or search on metacpan
app/run_experiment.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(../lib ../../Algorithm-Evolutionary/lib);
use YAML qw(LoadFile);
use IO::YAML;
use DateTime;
view release on metacpan or search on metacpan
t/algorithm_odometer_tiny.t view on Meta::CPAN
L<http://perldoc.perl.org/perlartistic.html>.
=cut
use FindBin ();
use lib $FindBin::Bin;
use Algorithm_Odometer_Tiny_Testlib;
use List::Util qw/reduce/;
use constant TESTCOUNT => 16; ## no critic (ProhibitConstantPragma)
use Test::More tests => TESTCOUNT;
view release on metacpan or search on metacpan
ex/bench.pl view on Meta::CPAN
use strict;
use warnings;
use lib 'lib';
# BEGIN { $ENV{ALGORITHM_QUADTREE_BACKEND} = 'Algorithm::QuadTree::PP'; }
use Algorithm::QuadTree;
use Benchmark qw(cmpthese);
view release on metacpan or search on metacpan
ex/bench.pl view on Meta::CPAN
use strict;
use warnings;
use lib 'lib';
BEGIN { $ENV{ALGORITHM_QUADTREE_BACKEND} = 'Algorithm::QuadTree::PP'; }
use Algorithm::QuadTree;
use Benchmark qw(cmpthese);
view release on metacpan or search on metacpan
examples/generate_random_points.pl view on Meta::CPAN
#!/usr/bin/perl -w
#use lib '../blib/lib', '../blib/arch';
### generate_random_points.pl
use strict;
use Algorithm::RandomPointGenerator;
view release on metacpan or search on metacpan
use v5.40;
use Test2::V0;
use lib 'lib', '../lib';
use Algorithm::RateLimiter::TokenBucket;
#
subtest Initialization => sub {
my $limit = 1000;
my $rl = Algorithm::RateLimiter::TokenBucket->new( limit => $limit );
view release on metacpan or search on metacpan
t/Algorithm-RectanglesContainingDot_XS.t view on Meta::CPAN
#!/usr/bin/perl
# use lib '../Algorithm-RectanglesContainingDot/lib';
use Test::More tests => 20003;
BEGIN { use_ok('Algorithm::RectanglesContainingDot_XS') };
BEGIN { use_ok('Algorithm::RectanglesContainingDot') };
view release on metacpan or search on metacpan
#!/usr/bin/perl
use lib '../';
use Benchmark qw(:all);
use Data::Dumper;
use Algorithm::SAT::Expression;
my $result = cmpthese(
100000,
view release on metacpan or search on metacpan
maint/Makefile.PL.include view on Meta::CPAN
BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
use lib 'Distar/lib';
use Distar;
author 'mateu - Mateu X. Hunter (cpan:MATEU) <hunter@missoula.org>';
1;
view release on metacpan or search on metacpan
use strict;
use warnings;
use Test::More;
use lib 'lib';
use Algorithm::SlidingWindow;
sub dies_like {
my ($code, $re) = @_;
my $ok = eval { $code->(); 1 };
view release on metacpan or search on metacpan
examples/bench.pl view on Meta::CPAN
use strict;
use warnings;
use lib 'lib';
use Algorithm::SpatialIndex;
use Algorithm::SpatialIndex::Storage::Redis;
use lib 't/lib';
use Algorithm::SpatialIndex::Test;
use Algorithm::QuadTree;
use Benchmark qw(cmpthese timethese);
view release on metacpan or search on metacpan
t/30strategy-mquadtree.t view on Meta::CPAN
my $tlibpath;
BEGIN {
$tlibpath = -d "t" ? "t/lib" : "lib";
}
use lib $tlibpath;
use Algorithm::SpatialIndex::MQTreeTest;
Algorithm::SpatialIndex::MQTreeTest->run('Memory');
view release on metacpan or search on metacpan
examples/bench.pl view on Meta::CPAN
use strict;
use warnings;
use lib 'lib';
use Algorithm::SpatialIndex;
use Algorithm::QuadTree;
use Benchmark qw(cmpthese timethese);
# ordered or random or concentrated_random