- my ($ia,$ix) = @$def1;
- my ($ib,$iy) = @$def1;
- return 1 if $vab[$ia][$ix] < $vab[$ib][$iy];
- return 1 if $vab[$ia][$ix] == $vab[$ib][$iy]
- && $vab[$ix][$ia] > $vab[$iy][$ib];
+ my ($ca,$cx) = @$def1;
+ my ($cb,$cy) = @$def1;
+ return 1 if chvab($ca, $cx) < chvab($cb, $cy);
+ return 1 if chvab($ca, $cx) == chvab($cb, $cy)
+ && chvab($cx, $ca) > chvab($cy, $cb);