From Newsgroup: comp.lang.python

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)

--- Synchronet 3.21a-Linux NewsLink 1.2