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

Text File | 1987-07-05 | 178 b | 9 lines

DEF Permute AS
   IF null THEN #<<>>
   ELSE
      [id,length|iota] | distl |
      EACH
     [pick,[takel|tlr,dropl]|cat|Permute] | distl | EACH apndl END
      END | cat
   END;