From 8e97f0425e38b508ad18941fce1eafe3b4f7818e Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Wed, 7 Oct 2020 16:31:32 -0400 Subject: Refactor modifiers: one is applied iff it's in a subject or function expression --- src/c.bqn | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src') diff --git a/src/c.bqn b/src/c.bqn index 4e778597..e64058e7 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -126,24 +126,24 @@ Parse ← {r‿nv←𝕨 pt←cp∧sn←¬sl∨sr r↩sl-˜sn×((1↓ft)⊏(1+2⊸≤)⊸/↕4)⌾((b⊏rev)⊸⊏)r pp←pt∧»no←»⌾(g⊸⊏)r<0 - er←((»⌾(g⊸⊏)(1+no)×3=⊢)⌈⊢-no<2≤⊢)r+pp×(IT¬pp)⊏r - er⌈↩(IT¬pt∧er=0)((⊏-⊢)⟜(+`¬pp)(⊢⌊1⌈+)⊏)er - r+↩pt×»er + ir←((»⌾(g⊸⊏)(1+no)×3=⊢)⌈⊢-no<2≤⊢)r+pp×(IT¬pp)⊏r + ir⌈↩(IT¬pt∧ir=0)((⊏-⊢)⟜(+`¬pp)(⊢⌊1⌈+)⊏)ir + r+↩pt×»ir id←/idm←(0⊸≤∧<⟜nv)xv←𝕩-vi⋄idx←id⊏𝕩⋄sp←/𝕩 M bI ad←𝕩(=>○IT⊣=1+⊢)⊑bG g↩⍋+`rev⊏p-br⋄gr←g⊏rev⋄sll←1+2÷˜0(<-○/>)gr⊏sr-sl⋄l←/g⊏𝕩=5+⊑bB g⊏˜↩gs←⍋gr⊏sl⋄gr↩g⊏rev⋄gi←⍋g - 𝕩⊏˜↩g⋄r⊏˜↩gr⋄er⊏˜↩gr⋄si←/gr⊏sr>sl⋄l⊏↩⍋gs - a←r=¯3⋄ps←a↩tr←er≥1 - os←⌽↕∘≠⊸(⊣-T)⌽¬ro∨ma⋄at←1+⊏⟜os⊸+/a + 𝕩⊏˜↩g⋄r⊏˜↩gr⋄ir⊏˜↩gr⋄si←/gr⊏sr>sl⋄l⊏↩⍋gs + a←r=¯3⋄ps←a(⊢∧2(|<≤)ps(⊢-T)+`)¬ro - oa←⌽/op←(«r≥0)∧r≥2 - fa←/(ta∨(ro∧«op)∨«aa)<(r=1)∨<⟜»op + fa←/(ta∨ro∨«aa)<(r=1)∨»op dy←fa⊏«(𝕩≠⊑bO)∧(tr∧r≥0)∨ro