Module 3 Extra Materials

The cat-start-or-end? example without cond

;; cat-start-or-end?: Str -> Bool
(define (cat-start-or-end? s)
    (and (not (too-short? s))
         (or (cat-start? s)
             (cat-end? s))))

Alternatively, too-short? can be just (< 3 (string-length s)), or it can be put into cat-start? and cat-end?.