aboutsummaryrefslogtreecommitdiff
path: root/c.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'c.bqn')
-rwxr-xr-xc.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/c.bqn b/c.bqn
index cb31ed6c..6cf5ebac 100755
--- a/c.bqn
+++ b/c.bqn
@@ -146,7 +146,7 @@ DParse ← {nv‿r𝕊𝕩:
rev←⍋+`1+¯1↓g((¯1∾⊣)(⊣⍋⊸⊏⊏˜-⊏˜⟜⍋)⟜⍋1(+`∘∾-∾˜)⊏)o∨sl∨𝕩∊bS
rev⊏˜↩⍋{+`⌾((⍋+`𝕩)⊸⊏)𝕩>0}rev⊏br
bv←rev⊏br⋄b←/be←bv<0
- H←<˝∘⍉2↕(be∾1)/·+`0∾˜(rev⊏𝕩)∊(5⊑bI)+⊢
+ H←<˝∘⍉2↕(1∾˜bv>0)/·+`0∾˜(rev⊏𝕩)∊(5⊑bI)+⊢
ft←(H↕3)+2×(H⥊3)⌈2×H⥊4
r↩(ft⊏(1+2⊸≤)⊸/↕4)⌾((be/rev)⊸⊏)r