Help for this page

Select Code to Download

Select or download this

sub distance {
  my ($vec1,$vec2) = @_;
  my $distance = 0;
...
  }
  return $difference;
}