windcrazy86:

It looks like $a and $b are objects of a class having member functions X, Y and Z. Also, based on the name of the subroutine, it's simply computing the inner product of vectors $a and $b. So imagine that $a->X returns the X component of vector $a, $a->Y the Y component, etc.

So the function is computing (A.x*B.x) + (A.y*B.y) + (A.z*B.z).

$ cat foo.pl
use strict;
use warnings;

sub new_vec { return bless { vec=>[ @_ ] }, 'flarb' };

my $a = new_vec(1, 2, 3);
my $b = new_vec(1, 4, 9);

my $t = InProduct($a, $b);
print "t=$t\n";

sub InProduct {
    my ($a, $b) = @_;

    return $a->X*$b->X + $a->Y*$b->Y + $a->Z*$b->Z;
}

package flarb;

sub X { my $self=shift; return $self->{vec}[0] };
sub Y { my $self=shift; return $self->{vec}[1] };
sub Z { my $self=shift; return $self->{vec}[2] };

$ perl foo.pl
t=36

[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.

In reply to Re: about the application of arrow operator by roboticus
in thread about the application of arrow operator by windcrazy86

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.