Balanced brackets: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) |
|||
Line 6,193:
<lang scheme>(define (balanced-brackets string)
(define (b chars sum)
(cond ((
#f)
((and (null? chars) (= 0 sum))
#t)
((null? chars)
Line 6,199 ⟶ 6,201:
((char=? #\[ (car chars))
(b (cdr chars) (+ sum 1)))
((char=?
(else
(
(b (string->list string) 0))
|