view release on metacpan or  search on metacpan

example/cb.pl  view on Meta::CPAN

#!perl

# usage: perl cb.pl

use strict;
use warnings;
use lib '../lib', 'lib';
use Algorithm::TravelingSalesman::BitonicTour;

my $b = Algorithm::TravelingSalesman::BitonicTour->new;

# Grid points from Cormen, Figure 15.9, p. 365.  Note that points can be added
# in any order; these just happen to be left-to-right.

$b->add_point(0,6);
$b->add_point(1,0);
$b->add_point(2,3);