bridge/class-master/depend/pari/src/basemath/mftrace.c
/* in place, assume perm strictly increasing */
in place, assume perm strictly increasing
in place assume perm strictly increasing
static void
vecpermute_inplace(GEN v, GEN perm)
{
  long i, l = lg(perm);
  for (i = 1; i < l; i++) gel(v,i) = gel(v,perm[i]);
}
static void vecpermute_inplace ( GEN v , GEN perm ) { long i , l = lg ( perm ) ; for ( i = 1 ; i < l ; i ++ ) gel ( v , i ) = gel ( v , perm [ i ] ) ; }
in place, assume perm strictly increasing
in place assume perm strictly increasing