#!/usr/bin/perl

BEGIN {
    unshift (@INC, "/mnt/NFS2/PUBLIC/ghon/histone-predictions3/scripts/euclidean_dist");
}

use strict;
use euclidean_dist;

my @a = (1, 2, 3, 4, 5);
my @b = (5, 4, 3, 2, 1);

my $n = scalar(@a);
my $aa = euclidean_dist::new_doubleArray($n);
my $bb = euclidean_dist::new_doubleArray($n);

for (my $i=0 ; $i < scalar(@a) ; $i++) {
    euclidean_dist::doubleArray_setitem($aa, $i, $a[$i]);
    euclidean_dist::doubleArray_setitem($bb, $i, $b[$i]);
}

print (euclidean_dist::euclidean_dist($aa, $bb, 5) . "\n");
print (euclidean_dist::euclidean_norm($aa, 5) . "\n");
print (euclidean_dist::euclidean_norm($bb, 5) . "\n");

#print correlation::correlation(\@a, \@b) . "\n";