From 22d27100e2f823b14dacd6655afc136017a5ec28 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Mon, 27 Jul 2020 16:41:23 -0400 Subject: =?UTF-8?q?Simplify=20lexical=20lookups:=20=E2=8D=8Bfi=20is=20the?= =?UTF-8?q?=20same=20as=20=E2=8D=8Bfd?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- c.bqn | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/c.bqn b/c.bqn index 0dd3c773..008c6608 100755 --- a/c.bqn +++ b/c.bqn @@ -154,23 +154,22 @@ DParse ← {nv‿r𝕊𝕩: r+↩(sa<𝕩=1⊑bB)(⊣∧¬⊸∨=○(⌈`(1+↕∘≠)⊸×)⊢)(¯1⊸⌽⌾(g⊸⊏)3=r)∨1≤r rev←⍋+`1+¯1↓g((¯1∾⊣)(⊣⍋⊸⊏⊏˜-⊏˜⟜⍋)⟜⍋1(+`∘∾-∾˜)⊏)o∨sl∨𝕩∊bS - fg←⍋fd←+`pr←rev⊏br⋄fi←+`⌾(fg⊸⊏)pr>0 - g↩⍋fi⋄rev⊏˜↩g⋄fi⊏˜↩g⋄fd⊏˜↩g - 𝕩⊏˜↩rev⋄bv←rev⊏br⋄b←/be←bv<0 + g↩⍋fd←+`rev⊏br + rev⊏˜↩g⋄fd⊏˜↩g + 𝕩⊏˜↩rev⋄bv←rev⊏br⋄b←/bv<0⋄fi←+`c←bv>0 - FC←-⟜(≠↑0∾⊢)(1∾˜bv>0)/·+`∾⟜0 + FC←-⟜(≠↑0∾⊢)(c∾1)/·+`∾⟜0 H←0<1↓·FC𝕩∊(5⊑bI)+⊢ ft←0∾(H↕3)+2×(H⥊3)⌈2×H⥊4 r↩((1↓ft)⊏(1+2⊸≤)⊸/↕4)⌾(b⊸⊏)rev⊏r - id←/(𝕩≥vi)∧𝕩0⋄fe←(≠𝕩)∾fg/˜pr<0 - ig←⍋(⊏⟜fb∾d⊸/⊏fe˜)id⊏fi + id←/(0⊸≤∧<⟜nv)𝕩-vi⋄d←id⊏dec←¯1⌽𝕩=⊑bG⋄sp←/𝕩∊bI + ig←⍋(⊏⟜(¯1∾c/g)∾d⊸/⊏((≠𝕩)∾b⊏g)˜)id⊏fi ig↩<⟜(≠id)⊸/(⍋+`∘⊏⟜(d∾¯1⥊˜+´d))⊸⊏(⍋⊏⟜(∾⟜(d⊸/)id⊏𝕩))⊸⊏ig ui←d(⌈`↕∘≠⊸×)⊸⊏⌾(ig⊸⊏)id - ip←1-˜ui⊏-⟜(⌈`(bv>0)⊸×)+`dec - ii←ip∾+⟜(0⊸≤)2+vi-˜sp⊏𝕩 - ii+↩(ui∾sp)⊏(+`bv>0)⊏3×2|ft + ii←1-˜ui⊏-⟜(⌈`c⊸×)+`dec + ii∾↩+⟜(0⊸≤)2+vi-˜sp⊏𝕩 + ii+↩(fi⊏˜ui∾sp)⊏3×2|ft idor←∾3⥊o+`⊸⊏0∾lo⋄rt←/𝕩=2⊑bB - or←⍋idor∾g⊏˜∾⟨cn,cn,b,b,rt,1+/a,dr,l,l,si,si,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy⟩ - bc1←idbc∾⟨0¨cn,u⊐ob,15¨b,1+↕≠b⟩ - bc←or⊏∾bc1∾⟨25¨rt,12¨/a,14¨dr,3¨l,ll,3¨si,sll,5+oa⊏r,5+dy+4×fa⊏tr⟩ - ⟨LEBv bc,u,(ft⊏⥊"fmd"≍⌜⌽↕2)∾¨(((⥊¨↑⟜•a)¨lc)∾˜¨ft⊏spd)<∘≍˘˜/1∾or∊(+´≠¨bc1)+↕≠rt⟩ + dr←/s>o+`⊸⊏0∾lo⋄rt←/𝕩=2⊑bB⋄as←1+/a + or←⍋idor∾g⊏˜∾⟨cn,cn,b,b,rt,as,dr,l,l,si,si,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy⟩ + bc0←∾idbc∾⟨0¨cn,u⊐ob,15¨b,1+↕≠b⟩ + bc←or⊏bc0∾∾⟨25¨rt,12¨as,14¨dr,3¨l,ll,3¨si,sll,5+oa⊏r,5+dy+4×fa⊏tr⟩ + fs←(ft⊏⥊"fmd"≍⌜⌽↕2)∾¨(/1∾or∊bc0+⟜↕○≠rt)≍○<¨(ft⊏spd)∾⟜(⥊¨↑⟜•a)¨lc + ⟨LEBv bc,u,fs⟩ } prims←⟨ -- cgit v1.2.3