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?
.