aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Balanced-brackets/AutoLISP/balanced-brackets.l
View file

@ -1,12 +0,0 @@
(defun BalancedBrackets (str / cntOpen curr)
(setq cntOpen 0)
(setq str (vl-string->list str))
(while (and (>= cntOpen 0) str)
(setq curr (car str) str (cdr str))
(cond
((= 91 curr) (setq cntOpen (1+ cntOpen)))
((= 93 curr) (setq cntOpen (1- cntOpen)))
)
)
(and (null str) (zerop cntOpen))
)