Programmer 7500/MAX_PROGRAMMERS.iso/INFO/MISC/IFP05.ZIP/FPDEMO.EXE/PERMUTE

Text File | 1987-02-09 | 187 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;