Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume10/ifp/part01/fproot/demo/SlowSort

Text File | 1987-07-05 | 231 b | 13 lines

(*
 * SlowSort
 *
 * Sort a sequence the hard way, i.e. take all permutations
 * and pick one for which all elements are in order.
 *)
DEF SlowSort AS
   Permute |
   FILTER
      [tl,tlr]|trans | EACH >= END | all
   END | 1;