blob: 80b5f7e6971d0e5dfdda3d6e8710e30223d830c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#lang racket
(define/contract (detect-capital-use word)
(-> string? boolean?)
(if
(member word (list (string-upcase word)
(string-downcase word)
(string-titlecase word)))
#true
#false))
(detect-capital-use "Google")
|
