diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-19 08:42:20 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-08-19 08:42:20 -0400 |
| commit | 8ef1527c67aff95dd36d08777d5b52b520a31a65 (patch) | |
| tree | 64ae1d4420010e5ef2ca0183c603b0184d594949 /src/c.bqn | |
| parent | e6285d28750af5e663666bf17e3969efbdfa5681 (diff) | |
Fix swapped bracket check, which failed when the input started with an open bracket
Diffstat (limited to 'src/c.bqn')
| -rw-r--r-- | src/c.bqn | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -89,9 +89,9 @@ ErrMismatchedBrackets←{ 0 !˜ 𝕨 (Lcs<⌊○≠)◶⟨Msg,"Malformed bracket nesting"⟩ 𝕩 } Parse ← {nv‿r←𝕨 - g←⍋+`p←𝕩(Mׯ1⋆2|-⟜⊑)bB⋄br←p×𝕩M 2≍˜2+⊑bB + g←⍋pd←+`p←𝕩(Mׯ1⋆2|-⟜⊑)bB⋄br←p×𝕩M 2≍˜2+⊑bB p(=⟜1⊸/ErrMismatchedBrackets⍟≢1-˜=⟜¯1⊸/)○(g⊸⊏)𝕩 - "Swapped open and closed brackets" ! (0≤⊑p)∧0=⊑g + "Swapped open and closed brackets" ! 0≤(⊑g)⊑pd sl←1⊸⌽⊸∨𝕩 M bL⋄sr←¯1⊸⌽⌾(g⊸⊏)sl⋄sa←sl∨sr g⊏˜↩⍋g⊏sl⋄r×↩¬sa⋄o←p>0 r+↩(sa<𝕩=1+⊑bB)(⊣∧¬⊸∨=○(⌈`(1+↕∘≠)⊸×)⊢)(¯1⊸⌽⌾(g⊸⊏)3=r)∨1≤r |