6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(defparameter *searched-list* |
(defparameter *searched-list* |
9 |
'(B B A B B B B B B B A B A B B B A B A B B B A A A A B A A B A A A A A |
'(b b a b b b b b b b a b a b b b a b a b b b a a a a b a a b a a a a a |
10 |
A B A B B A B A A B A A A B B A A B A A A A B B A B A B A A A B A B |
a b a b b a b a a b a a a b b a a b a a a a b b a b a b a a a b a b |
11 |
B A B A A B B B B B A A A A A B A B B B B B A B A B B A B A B)) |
b a b a a b b b b b a a a a a b a b b b b b a b a b b a b a b)) |
12 |
|
|
13 |
(defparameter *pattern-sublists* |
(defparameter *pattern-sublists* |
14 |
(remove-duplicates |
(remove-duplicates |