Lines Matching full:cycle

114 	# $cycle[n] includes $cycle[n + 1];
115 	# $cycle[-1] will be the culprit
116 	my $cycle = shift;
119 	for my $i (0 .. $#$cycle - 1) {
120 		$cycle->[$i]->[0] = $cycle->[$i + 1]->[0];
122 	$cycle->[-1]->[0] = 0;
124 	my $first = shift @$cycle;
125 	my $last = pop @$cycle;
130 	for my $header (reverse @$cycle) {
141 # Find and print the smallest cycle starting in the specified node.
152 			# cycle...