Hi Lindsay,
> : (nil (setq *BitsSA (sort (make (map link (chop "ABRAABRACADABRA"))
*BitsSA is a list of lists of characters:
: (more *BitsSA)
("A")
("A" "A" "B" "R" "A" "C" "A" "D" "A" "B" "R" "A")
("A" "B" "R" "A")
("A" "B" "R" "A" "A" "B" "R" "A" "C" "A" "D" "A" "B" "R"
Thanks Alex,
My sample code ("ABRA..) is wrong. Sorry about that.
I simplified too much from some other code I have written that has a lot
of unrelated stuff in it.
However, what about these examples? Similar to those of the documentation:
: (rank 'c '((a . a) (b . b) (d . d)) T) # ???
->