adding old leetcode solutions

1 files changed, 19 insertions, 0 deletions

diff --git a/leetcode/lc-1221-split-a-string-balanced.rkt b/leetcode/lc-1221-split-a-string-balanced.rkt
new file mode 100644
index 0000000..4c75770
--- /dev/null
+++ b/leetcode/lc-1221-split-a-string-balanced.rkt
@@ -0,0 +1,19 @@
+#lang racket
+(require rackunit)
+
+(define/contract (balanced-string-split s)
+  (-> string? exact-integer?)
+  (for/fold ([acc 0]
+             [count 0]
+             #:result count)
+            ([c (string->list s)])
+    (let* ([increment (case c
+                        [(#\R) 1]
+                        [(#\L) -1])]
+           [new-acc (+ increment acc)]
+           [new-count (case new-acc
+                        [(0) (add1 count)]
+                        [else count])])
+      (values new-acc new-count))))
+
+(check-eq? (balanced-string-split "RLRRLLRLRL") 4) 
\ No newline at end of file