view release on metacpan or search on metacpan
t/01_combinations.t view on Meta::CPAN
use strict;
use warnings;
use FindBin qw($Bin);
use lib $Bin;
use Test::More qw(no_plan);
use Algorithm::Combinatorics qw(combinations);
use Tester;
view release on metacpan or search on metacpan
bin/curvefit view on Meta::CPAN
our $VERSION = '1.03'; # VERSION 1.02
use strict;
use warnings;
use JSON::PP;
use lib "./lib";
use Algorithm::CurveFit::Simple qw(fit);
my @DOCS;
my %OPT = (v => 1);
foreach my $arg (@ARGV) {
view release on metacpan or search on metacpan
examples/examplefit.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use lib '../lib';
use Algorithm::CurveFit;
my $formula = 'b*cos(x/10)+c*sin(x/10)';
my $variable = 'x';
my @xdata;
view release on metacpan or search on metacpan
lib/Algorithm/BoostedDecisionTree.pm view on Meta::CPAN
#
# Algorithm::BoostedDecisionTree is a Perl module for boosted decision-tree based
# classification of multidimensional data.
# -------------------------------------------------------------------------------------
#use lib 'blib/lib', 'blib/arch';
#use 5.10.0;
use strict;
use warnings;
use Carp;
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
use 5.006;
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use AEPS_TestSuite;
diag 'backend: '
. Algorithm::EventsPerSecond->backend
. ( Algorithm::EventsPerSecond->simd ? ' (' . Algorithm::EventsPerSecond->simd . ')' : '' );
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
t/02-zones.t view on Meta::CPAN
use warnings;
use Test::More;
use Algorithm::QuadTree;
use lib 't/lib';
use QuadTreeUtils;
my $qt = Algorithm::QuadTree->new(
-xmin => 0,
-xmax => AREA_SIZE,
view release on metacpan or search on metacpan
t/02-zones.t view on Meta::CPAN
BEGIN { $ENV{ALGORITHM_QUADTREE_BACKEND} = 'Algorithm::QuadTree::PP'; }
use Test::More;
use Algorithm::QuadTree;
use lib 't/lib';
use QuadTreeUtils;
my $qt = Algorithm::QuadTree->new(
-xmin => 0,
-xmax => AREA_SIZE,
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,