home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0005 / permute.bas next >
Encoding:
BASIC Source File  |  1991-12-02  |  640 b   |  23 lines
  1. 10 REM THIS PROGRAM WILL DO ALL THE POSSIBLE PERMUTATIONS OF ANY GIVEN SET OF          LETTERS.
  2. 20 CLS
  3. 30 KEY OFF
  4. 40 PRINT TAB(25)"PERMUTATIONS":PRINT:PRINT
  5. 50 REM PERMUTATIONS BY KEN WASSERMAN
  6. 60 INPUT "LETTERS:", W$
  7. 70 L=LEN(W$)
  8. 80 DIM W$(L),I(L)
  9. 90 W$(L)=W$
  10. 100 GOSUB 120
  11. 110 END
  12. 120 IF L=0 THEN GOSUB 190:RETURN
  13. 130 I(L)=L
  14. 140 W$=MID$(W$,1,L-1)+MID$(W$(L),I(L),1)+MID$(W$,L+1)
  15. 150 W$(L-1)=MID$(W$(L),1,I(L)-1)+MID$(W$(L),I(L)+1)
  16. 160 L=L-1:GOSUB 120:L=L+1
  17. 170 I(L)=I(L)-1:IF I(L)=0 THEN RETURN
  18. 180 GOTO 140
  19. 190 PRINT W$,
  20. 200 RETURN
  21. MID$(W$(L),I(L)+1)
  22. 160 L=L-1:GOSUB 120:L=L+1
  23. 170 I(L)=I(L)-1:IF I(L)=0 THEN RETURN