Re: (rank)

2017-05-24 Thread Lindsay John Lawrence
Hi Alex, Ah. That's what I missed the sort direction of the second argument.. Thank you Lindsay On Tue, May 23, 2017 at 10:47 PM, Alexander Burger wrote: > Hi Lindsay, > > > My sample code ("ABRA..) is wrong. Sorry about that. > > Ah, I see. No problem. > > > > :

Re: (rank)

2017-05-23 Thread Lindsay John Lawrence
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) # ??? ->

Re: (rank)

2017-05-23 Thread Alexander Burger
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"