From b84320aaa4302295dbbf76c24d0cf257a816d427 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 7 Jun 2020 09:54:06 -0400 Subject: Fix error on input with no parens --- c.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/c.bqn b/c.bqn index 7c7bb665..11e170c3 100755 --- a/c.bqn +++ b/c.bqn @@ -5,7 +5,7 @@ Parse←{ na←f×1+l↑0∾c∨v e←/c⋄d←+`o-c ed←e⊏d⋄b←(⍋⍋ed)⊏(⍋⊏⟜d)⊸⊏/o - s←e-(e∾l)⊏˜{u←(≠e)¨𝕩⋄{(𝕩⊏u)↩𝕨⊏˜𝕨⍋𝕩}¨´˘2↕⊔𝕩⋄u}ed + s←e-(e∾l)⊏˜{u←(≠e)¨𝕩⋄{(𝕩⊏u)↩𝕨⊏˜𝕨⍋𝕩}¨´˘2↕⊔𝕩⋄u}⍟(0<≠)ed fe←f×(l-1)++`(-⊸≍s)⌾((e≍b)⊸⊏)l⥊0 ia←+`l↑0∾f-l↑/⁼∧f/fe sel←¬∘⊏⟜(o∨c)⊸/⍋(fe⌈↕l)-ia -- cgit v1.2.3