count-uppers

Author: willdoescode

count-upper.rkt

@@ -0,0 +1,8 @@
+#lang racket
+
+(define (count-upper s)
+  (foldr 
+   (lambda (c i) (if (char-upper-case? c) (+ i 1) i)) 
+   0  (string->list s)))
+
+(provide count-upper)

main.rkt

@@ -4,6 +4,7 @@
 (require "two-sum.rkt")
 (require "remove-outer-parens.rkt")
 (require "remove-dups.rkt")
+(require "count-upper.rkt")
 
 (check-equal? (two-sum 5 '(1 2 3 4)) '(1 2))
 (check-equal? (two-sum 21 '(0 2 11 19 90)) '(1 3))
@@ -15,3 +16,7 @@
 
 (check-equal? (remove-dups '(1 1 2)) 2)
 (check-equal? (remove-dups '(0 0 1 1 1 2 2 3 3 4)) 5)
+
+(check-equal? (count-upper "HeLlO wOrLd") 5)
+(check-equal? (count-upper "no uppers") 0)
+(check-equal? (count-upper "Some uppers") 1)