Re: ( Substring function in Python, Lisp) -- [Hijack] contains [hijk]

On Mon, 17 Feb 2025 7:09:05 +0000, Madhu wrote:

> * HenHanna <[email protected]> :
> Wrote on Sun, 16 Feb 2025 18:33:58 +0000:
>> On Sun, 16 Feb 2025 15:43:20 +0000, Madhu wrote:
>
> [Badly proofread, sorry.  The letters "LCA" are meaningless in this
> context.  it could be LIS (longest increasing subsequence)]
>
>> Using a suitable implementaion in a stupid way:
>> (defun lca (string)
>> (map 'string 'code-char (lca::longest-inc-seq (map 'list 'char-code
>> string))))
>>>
>> and running it on to extract into a hashtable with the keys as lcas
>>>
>> (hash-table-count $h2)
>> ;; => 20437
>>>
>> (gethash "abcde" $h2)
>> ("oxylabracidae" "cerambycidae" "bambocciade" "amoebicide" "ambuscade"
>> "absconded" "aborticide")
>>>
>>>
>> (sort (mapcar (lambda (x) (cons (car x) (length (cdr x))))
>> (group2 (hash-keys $h2) :test #'= :key #'length))
>> #'< :key #'car)
>>>
>> ;; "length of lca . number of words"
>> ((2 . 241) (3 . 1596) (4 . 4833) (5 . 7024) (6 . 4961) (7 . 1545) (8 .
>> 217)
>> (9 . 19) (10 . 1))
>> ____________
>>
>> (9 . 19) (10 . 1))
>>
>> wow....  I'd love to know what these Longest words are!
>> who is the  (sole)  Grand winner?
>
> This historgram was of just the keys, or the subsequences, not the
> words.  The longest increasing subsequence was of length 10,
> "achilopsty" and the word was
>
> (gethash "achilopsty" $h2)
> ;; => ("tarsochiloplasty"), T
>
> #||
> lrwxrwxrwx 1 root root 4 Dec 28  2020 /usr/share/dict/words -> web2
> -rw-r--r-- 1 root root 2486824 Oct 21  2000 /usr/share/dict/web2
> ||#

______________

> tarsochiloplasty

thank you... that word is in the dictionary I'm using.

         This looks good too:         abdominoplasty


                 whch contains         abd  in   opsty
                                       ach  il   opsty


  abdominoplasty -- is shorter and its meaning is kinda obvious!