Rosetta Code

Balanced brackets: Difference between revisions

Page Discussion

Balanced brackets (view source)

Revision as of 09:02, 4 December 2022

59 bytes removed ,  1 year ago
m
→‎{{header|RPL}}: better ASSERT subroutine, using a list
(RPL version)
m (→‎{{header|RPL}}: better ASSERT subroutine, using a list)
Line 6,728:
≫
'ASSERT'
≪ {
≪ "" BALBKT " → " SWAP + + ▼
""
"[]" BALBKT " → " SWAP + +
"[][]" BALBKT " → " SWAP + +
"[[][]]" BALBKT " → " SWAP + +
"[[][]]" BALBKT " → " SWAP + +
"][][" BALBKT " → " SWAP + +
"][]][[]" BALBKT " → " SWAP + +
"[]][[]" }
≫▼
→ ts
≪
1 ts SIZE
FOR j
▲ ≪ "" ts j GET BALBKT " → " SWAP + +
NEXT
≫
▲ ≫
</syntaxhighlight>
{{out}}
<pre>
ASSERT▼
 
"[]][[] → Not OK"▼
▲ ASSERT
"[] → OK"
"[][] → OK"
"[[][]] → OK"
"[[][]] → Not OK"
"][][ → Not OK"
"][]][[] → Not OK"
▲ "[]][[] → Not OK"
</pre>
 
Aerobar
1,150

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/334084"