note
BrowserUk
<blockquote><i></i></blockquote>
<p>Try:
<code>
sub equate2 {
my ($self, $other, $mapping) = @_;
my $sm = $self->{Matrix};
my $om = $other->{Matrix};
for my $row ( 0 .. $#$mapping ) {
my $smrow = $sm->[ $row ];
my $omrow = $om->[ $mapping->[ $row ] ];
for my $col ( 0 .. $#$mapping ) {
return 0 if $smrow->[ $col ] != $omrow->[ $mapping->[ $col ] ];
}
}
return 1;
}
</code>
<div class="pmsig"><div class="pmsig-171588">
<hr />
<font size=1 >
<div>With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'</div>
<div>Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.</div>
<div>"Science is about questioning the status quo. Questioning authority". </div>
<div>In the absence of evidence, opinion is indistinguishable from prejudice.
</div>
</font>
</div></div>
1047512
1047517