bridge/class-master/depend/pari/src/basemath/alglin1.c
/* count non-zero entries in row i, at most 'max' of them.
 * Return their indices */
count non-zero entries in row i, at most 'max' of them.
Return their indices
count non - zero entries in row i at most ' max ' of them . Return their indices
static GEN
row_count_non_zero(GEN a, long i, long max)
{
  GEN v = cgetg(max+1, t_VECSMALL);
  long j, l = lg(a), k = 1;
  for (j = 1; j < l; j++)
    if (!gequal0(gcoeff(a,i,j)))
    {
      if (k > max) return NULL; 
      v[k++] = j;
    }
  setlg(v, k); return v;
}
static GEN row_count_non_zero ( GEN a , long i , long max ) { GEN v = cgetg ( max + 1 , t_VECSMALL ) ; long j , l = lg ( a ) , k = 1 ; for ( j = 1 ; j < l ; j ++ ) if ( ! gequal0 ( gcoeff ( a , i , j ) ) ) { if ( k > max ) return NULL ; v [ k ++ ] = j ; } setlg ( v , k ) ; return v ; }
count non-zero entries in row i, at most 'max' of them.
count non - zero entries in row i at most ' max ' of them .
/* fail */