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

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)