996
|
1 PLEASE NOTE THIS IS A BACKTRACKING PERMUTATION PROGRAM
|
|
2 MAYBE DON'T GIVE UP
|
|
3 DO .1 <- #0
|
|
4 (3) DO (24) NEXT
|
|
5 (4) DO (24) NEXT
|
|
6 (5) DO (24) NEXT
|
|
7 (6) DO (24) NEXT
|
|
8 (7) DO (24) NEXT
|
|
9 (8) DO (24) NEXT
|
|
10 DO READ OUT .1
|
|
11 PLEASE RETRIEVE .1
|
|
12 DO READ OUT .1
|
|
13 PLEASE RETRIEVE .1
|
|
14 DO READ OUT .1
|
|
15 PLEASE RETRIEVE .1
|
|
16 DO READ OUT .1
|
|
17 PLEASE RETRIEVE .1
|
|
18 DO READ OUT .1
|
|
19 PLEASE RETRIEVE .1
|
|
20 DO READ OUT .1
|
|
21 DO READ OUT #30
|
|
22 DO COME FROM (22)
|
|
23 (22) DO GO BACK
|
|
24
|
|
25 (24) PLEASE NOTE THIS RETURNS #1 TO #6 ON DIFFERENT BACKTRACKS
|
|
26 DO STASH .1
|
|
27 (26) DO .1 <- #1
|
|
28 (27) DO .1 <- #2
|
|
29 (28) DO .1 <- #3
|
|
30 (29) DO .1 <- #4
|
|
31 (30) DO .1 <- #5
|
|
32 DO .1 <- #6
|
|
33 DO RESUME #1
|
|
34 MAYBE COME FROM (26)
|
|
35 PLEASE RESUME #1
|
|
36 MAYBE COME FROM (27)
|
|
37 PLEASE RESUME #1
|
|
38 MAYBE COME FROM (28)
|
|
39 PLEASE RESUME #1
|
|
40 MAYBE COME FROM (29)
|
|
41 PLEASE RESUME #1
|
|
42 MAYBE COME FROM (30)
|
|
43 PLEASE RESUME #1
|
|
44
|
|
45 PLEASE NOTE THIS BACKTRACKS IF .1 IS NONUNIQUE IN ITS STASH
|
|
46 MAYBE COME FROM (3)
|
|
47 MAYBE COME FROM (4)
|
|
48 MAYBE COME FROM (5)
|
|
49 MAYBE COME FROM (6)
|
|
50 MAYBE COME FROM (7)
|
|
51 MAYBE COME FROM (8)
|
|
52 PLEASE DO .2 <- .1
|
|
53 DO .3 <- #1
|
|
54 DO COME FROM '"?"!3~.3'~#1"$#2"~#1'$#15
|
|
55 PLEASE DO RETRIEVE .1
|
|
56 DO ABSTAIN "?"!1~.1'~#1"$#1"~#3 FROM (55)
|
|
57 DO REINSTATE (55)
|
|
58 (55) DO GO BACK AGAIN
|
|
59 (87) PLEASE DO .3 <- '?.1$.2'~#21845
|
|
60 DO GO AHEAD
|
|
61 DO COME FROM (61)
|
|
62 (61) PLEASE DO GO BACK
|