Linear probing sort
charac(i,k) int i,k; {int b; b = 100000; for (; i>0; i--) b /= 10; return( (k%b) / (b/10) ); };
C
source (42.char.c)
©
Addison-Wesley
Publishing Co. Inc.