/* -*- gp-script -*- */ \\% Binary search in sorted vector. \\ Author: Joerg Arndt \\ License: GPL version 3 or later \\ online at http://www.jjj.de/pari/ \\ version: 2014-October-16 (18:32) bsearch(F, v)= { /* Search element v in sorted array F[]. Return index if found, else zero */ my(n, nlo, nhi, t); n = length(F); nlo = 1; nhi = n; while ( nlo != nhi, t = (nhi+nlo)\2; \\ ==floor((nhi+nlo)/2) if ( F[t]