From 2741f08625bb179f0d13bdaf8eb3d13da8e70088 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 6 Jul 2014 12:21:39 -0700 Subject: [PATCH] add capitalized? --- string.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/string.rkt b/string.rkt index 4346a45..15ef02d 100644 --- a/string.rkt +++ b/string.rkt @@ -11,4 +11,8 @@ (define+provide/contract (ends-with? str ender) (coerce/string? coerce/string? . -> . coerce/boolean?) (and (<= (string-length ender) (string-length str)) - (equal? (substring str (- (string-length str) (string-length ender)) (string-length str)) ender))) \ No newline at end of file + (equal? (substring str (- (string-length str) (string-length ender)) (string-length str)) ender))) + +(define+provide/contract (capitalized? str) + (coerce/string? . -> . coerce/boolean?) + (char-upper-case? (car (string->list str))))