note BrowserUk <blockquote><i></i></blockquote> <p>This seems too easy, (which usually means I didn't understand the question but...):<code> #! perl -slw use strict; sub minpos { my( $v, $s, $e ) = @_; my( $n, $min, $o ) = ( 0, 1e30, 0 ); for my $p ( $s .. $e ) { $n += vec( $v, $p, 1 ) ? 1 : -1; ( $min, $o ) = ( $n, $p ) if $n < $min; } return $o; } my $vec = pack 'b*', '100101000100'; my( $s, $e ) = ( 1 , 7 ); printf "The minima between %d - %d is at %d\n", $s, $e, minpos( $vec, $s, $e ); __END__ C:\test>junk5 The minima between 1 - 7 is at 7 </code> <div class="pmsig"><div class="pmsig-171588"> <hr /> <font size=1 > <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> 929375 929375