Searched refs:rewrite_neighbor (Results 1 – 3 of 3) sorted by relevance
| /dports/biology/viennarna/ViennaRNA-2.4.18/interfaces/Perl/RNA/ |
| H A D | Design.pm | 668 $mutated = 1 if $self->rewrite_neighbor($pseq[$i], \$pseq[$i+1]);
672 $mutated = 1 if $self->rewrite_neighbor($pseq[$i], \$pseq[$i-1]);
677 $mutated = 1 if $self->rewrite_neighbor($pseq[$i], \$pseq[$i+1]);
681 $mutated = 1 if $self->rewrite_neighbor($pseq[$i], \$pseq[$i-1]);
801 sub rewrite_neighbor { subroutine
1039 $a=$path[$j--] while $self->rewrite_neighbor($a, \$path[$j]);
1042 $self->rewrite_neighbor($path[$i], \$path[$i+1]) if $i < $#path;
|
| /dports/biology/viennarna/ViennaRNA-2.4.18/tests/perl5/ |
| H A D | test-RNA-Design.t | 29 is ($ViennaDesign->rewrite_neighbor($nuc1, \$nuc2), 1, 'rewrite_neighbor() - change');
30 is ($ViennaDesign->rewrite_neighbor($nuc1, \$nuc2), 0, 'rewrite_neighbor() - constant');
|
| /dports/biology/viennarna/ViennaRNA-2.4.18/interfaces/Perl/RNA/t/ |
| H A D | Design.t | 29 is ($ViennaDesign->rewrite_neighbor($nuc1, \$nuc2), 1, 'rewrite_neighbor() - change');
30 is ($ViennaDesign->rewrite_neighbor($nuc1, \$nuc2), 0, 'rewrite_neighbor() - constant');
|