Help for this page

Select Code to Download

Select or download this

package Wektor;

...
  my ($widgin, $windex) = (@_); 
  return $widgin->[$windex] || 0;
}

Select or download this

# this is oversimplified. a lot.
my $vector = join '', map { pack 'N', $_ } @ary