o=:97 115 8413 100 102 773           NB. original indices
   (o*b),.1|.o*-.b=.o<256
 97    0
115 8413
  0    0
100    0
102  773
  0    0
   ]d=:d#~0<d=.,|.(o*b),.1|.o*-.b=.o<256
102 773 100 115 8413 97                     NB. desired indices

Istvan
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to