Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.python > #197503

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

Cross-posted to 3 groups.

Show all headers | View raw

HenHanna wrote:

> A few weeks ago,  i was curious to see What English words contained
> ( abcd...  )  consecutive letters of the alphabet.
> 
>         defrag          defg
>         defang          defg
>         defog           defg
> 
>         hijack          hijk
> 
> ________________________________(Is there such a word containing 5
> letters? )

Gauche Scheme

(define (foo n-list)
  (define temp '())
  (values
    (remove
      (lambda (n)
        (and (or (null? temp) (member (- n (car temp)) '(0 1)))
          (push! temp n)))
      n-list)
    (length (delete-duplicates temp))))

(define (max-seq-length str)
  (let go ((codes (map char->integer (map char-upcase (string->list str))))
           (best 0))
    (if (null? codes)
      best
      (receive (codes n) (foo codes)
        (go codes (max n best))))))

(use file.util)   ;; file->string-list

(dolist (word (file->string-list "words"))
  (let ((len (max-seq-length word)))
    (when (> len 4)
      (print (list word len)))))

  ===>
(aborticide 5)
(absconder 5)
(abscondment 5)
(abstractedness 5)
(ambuscade 5)
(kilimanjaro 5)
(limnocryptes 5)
(reconstructive 5)

Back to comp.lang.python | Previous | Next — Previous in thread | Find similar

Thread

( Substring function in Python, Lisp)  --  [Hijack]  contains  [hijk] HenHanna <HenHanna@dev.null> - 2025-02-15 21:36 +0000
  Re: ( Substring function in Python, Lisp)  --  [Hijack]  contains  [hijk] richard@cogsci.ed.ac.uk (Richard Tobin) - 2025-02-16 00:18 +0000
    Re: ( Substring function in Python, Lisp)  --  [Hijack]  contains  [hijk] Paul Rubin <no.email@nospam.invalid> - 2025-02-15 23:43 -0800
      Re: ( Substring function in Python, Lisp)  --  [Hijack]  contains  [hijk] HenHanna <HenHanna@dev.null> - 2025-02-16 13:37 +0000
      Re: ( Substring function in Python, Lisp)  --  [Hijack]  contains  [hijk] richard@cogsci.ed.ac.uk (Richard Tobin) - 2025-02-16 19:02 +0000
  Re: ( Substring function in Python, Lisp) -- [Hijack] contains [hijk] "Carl G." <carlgnews@microprizes.com> - 2025-02-16 11:44 -0800
  Re: ( Substring function in Python, Lisp)  --  [Hijack]  contains  [hijk] HenHanna <HenHanna@dev.null> - 2025-02-17 11:50 +0000
  Re: ( Substring function in Python, Lisp) -- [Hijack] contains [hijk] "B. Pym" <Nobody447095@here-nor-there.org> - 2025-06-06 15:17 +0000

csiph-web