Searched refs:get_fibo (Results 1 – 1 of 1) sorted by relevance
425 sub get_fibo { subroutine723 return 2*($self->get_fibo($plen+1) + $self->get_fibo($l));736 return ($self->get_fibo($plen+1) + $self->get_fibo($l));995 my $n = 2*($self->get_fibo($l+1) + $self->get_fibo($ll));1001 if ($rand < $self->get_fibo($ll)) {1003 } elsif ($rand < 2*$self->get_fibo($ll)) {1005 $rand -= $self->get_fibo($ll);1007 $rand -= 2*$self->get_fibo($ll); 1010 $rand -= $self->get_fibo($l+1) if $rand >= $self->get_fibo($l+1);1016 if ($rand < $self->get_fibo($ll-@seq)) {[all …]