[1]> (load "lp.l")
;; Loading file lp.l ...
;; Loaded file lp.l
T
[2]> (trace random-permutation)
;; Tracing function RANDOM-PERMUTATION.
(RANDOM-PERMUTATION)
[3]> (random-permutation (iota 6))
1. Trace: (RANDOM-PERMUTATION '(1 2 3 4 5 6))
2. Trace: (RANDOM-PERMUTATION '(1 2 3 4 6))
3. Trace: (RANDOM-PERMUTATION '(1 2 4 6))
4. Trace: (RANDOM-PERMUTATION '(1 2 4))
5. Trace: (RANDOM-PERMUTATION '(1 2))
6. Trace: (RANDOM-PERMUTATION '(1))
7. Trace: (RANDOM-PERMUTATION 'NIL)
7. Trace: RANDOM-PERMUTATION ==> NIL
6. Trace: RANDOM-PERMUTATION ==> (1)
5. Trace: RANDOM-PERMUTATION ==> (2 1)
4. Trace: RANDOM-PERMUTATION ==> (4 2 1)
3. Trace: RANDOM-PERMUTATION ==> (6 4 2 1)
2. Trace: RANDOM-PERMUTATION ==> (3 6 4 2 1)
1. Trace: RANDOM-PERMUTATION ==> (5 3 6 4 2 1)
(5 3 6 4 2 1)
[4]> (random-permutation '(RED BLACK RED BLACK RED BLACK))
1. Trace: (RANDOM-PERMUTATION '(RED BLACK RED BLACK RED BLACK))
2. Trace: (RANDOM-PERMUTATION '(BLACK RED BLACK RED BLACK))
3. Trace: (RANDOM-PERMUTATION '(RED BLACK RED BLACK))
4. Trace: (RANDOM-PERMUTATION '(RED RED BLACK))
5. Trace: (RANDOM-PERMUTATION '(RED BLACK))
6. Trace: (RANDOM-PERMUTATION '(RED))
7. Trace: (RANDOM-PERMUTATION 'NIL)
7. Trace: RANDOM-PERMUTATION ==> NIL
6. Trace: RANDOM-PERMUTATION ==> (RED)
5. Trace: RANDOM-PERMUTATION ==> (BLACK RED)
4. Trace: RANDOM-PERMUTATION ==> (RED BLACK RED)
3. Trace: RANDOM-PERMUTATION ==> (BLACK RED BLACK RED)
2. Trace: RANDOM-PERMUTATION ==> (BLACK BLACK RED BLACK RED)
1. Trace: RANDOM-PERMUTATION ==> (RED BLACK BLACK RED BLACK RED)
(RED BLACK BLACK RED BLACK RED)
[5]> (random-permutation '(lambda calculus))
1. Trace: (RANDOM-PERMUTATION '(LAMBDA CALCULUS))
2. Trace: (RANDOM-PERMUTATION '(LAMBDA))
3. Trace: (RANDOM-PERMUTATION 'NIL)
3. Trace: RANDOM-PERMUTATION ==> NIL
2. Trace: RANDOM-PERMUTATION ==> (LAMBDA)
1. Trace: RANDOM-PERMUTATION ==> (CALCULUS LAMBDA)
(CALCULUS LAMBDA)
[6]> (random-permutation (generate 6 'foo))
1. Trace: (RANDOM-PERMUTATION '(FOO FOO FOO FOO FOO FOO))
2. Trace: (RANDOM-PERMUTATION '(FOO FOO FOO FOO FOO))
3. Trace: (RANDOM-PERMUTATION '(FOO FOO FOO FOO))
4. Trace: (RANDOM-PERMUTATION '(FOO FOO FOO))
5. Trace: (RANDOM-PERMUTATION '(FOO FOO))
6. Trace: (RANDOM-PERMUTATION '(FOO))
7. Trace: (RANDOM-PERMUTATION 'NIL)
7. Trace: RANDOM-PERMUTATION ==> NIL
6. Trace: RANDOM-PERMUTATION ==> (FOO)
5. Trace: RANDOM-PERMUTATION ==> (FOO FOO)
4. Trace: RANDOM-PERMUTATION ==> (FOO FOO FOO)
3. Trace: RANDOM-PERMUTATION ==> (FOO FOO FOO FOO)
2. Trace: RANDOM-PERMUTATION ==> (FOO FOO FOO FOO FOO)
1. Trace: RANDOM-PERMUTATION ==> (FOO FOO FOO FOO FOO FOO)
(FOO FOO FOO FOO FOO FOO)
[7]> (random-permutation '(red light green light 1 2 3))
1. Trace: (RANDOM-PERMUTATION '(RED LIGHT GREEN LIGHT 1 2 3))
2. Trace: (RANDOM-PERMUTATION '(RED LIGHT GREEN LIGHT 1 2))
3. Trace: (RANDOM-PERMUTATION '(RED LIGHT GREEN LIGHT 2))
4. Trace: (RANDOM-PERMUTATION '(LIGHT GREEN LIGHT 2))
5. Trace: (RANDOM-PERMUTATION '(LIGHT LIGHT 2))
6. Trace: (RANDOM-PERMUTATION '(LIGHT 2))
7. Trace: (RANDOM-PERMUTATION '(2))
8. Trace: (RANDOM-PERMUTATION 'NIL)
8. Trace: RANDOM-PERMUTATION ==> NIL
7. Trace: RANDOM-PERMUTATION ==> (2)
6. Trace: RANDOM-PERMUTATION ==> (LIGHT 2)
5. Trace: RANDOM-PERMUTATION ==> (LIGHT LIGHT 2)
4. Trace: RANDOM-PERMUTATION ==> (GREEN LIGHT LIGHT 2)
3. Trace: RANDOM-PERMUTATION ==> (RED GREEN LIGHT LIGHT 2)
2. Trace: RANDOM-PERMUTATION ==> (1 RED GREEN LIGHT LIGHT 2)
1. Trace: RANDOM-PERMUTATION ==> (3 1 RED GREEN LIGHT LIGHT 2)
(3 1 RED GREEN LIGHT LIGHT 2)
[8]> (bye)