Balanced brackets: Difference between revisions

Content added Content deleted
Line 6,193:
<lang scheme>(define (balanced-brackets string)
(define (b chars sum)
(cond ((and< (null? chars) (=sum 0 sum))
#f)
((and (null? chars) (= 0 sum))
#t)
((null? chars)
Line 6,199 ⟶ 6,201:
((char=? #\[ (car chars))
(b (cdr chars) (+ sum 1)))
((char=? sum#\] 0(car chars))
#f(b (cdr chars) (- sum 1)))
(else
(b (cdr chars) (- sum 1))#f)))
(b (string->list string) 0))
 
Retrieved from "https://rosettacode.org/wiki/Balanced_brackets"