From 3823a2b3d74dafdf86b95bfce6c293b709d91b24 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 9 Aug 2020 09:08:29 -0400 Subject: =?UTF-8?q?Replace=20=E2=88=8A=20with=20M=20for=20relocating=20fun?= =?UTF-8?q?ction=20starts=20after=20LEB128=20pass?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- c.bqn | 2 +- src/c.bqn | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/c.bqn b/c.bqn index fd5cc33d..379a8ab6 100755 --- a/c.bqn +++ b/c.bqn @@ -197,7 +197,7 @@ DParse ← {nv‿r𝕊𝕩: or←⍋idor∾g⊏˜∾⟨cn,cn,b,b,rt,dr,l,l,si,si,at,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy⟩ bc0←∾idbc∾⟨0¨cn,u⊐ob,15¨b,1+↕≠b⟩ bc←or⊏bc0∾∾⟨25¨rt,14¨dr,3+l⊏aa,ll,3+si⊏aa,sll,(11-⊑bG)+a/ma+𝕩,5+oa⊏r,(⊢+9×10⊸=)16+dy-7×fa⊏tr⟩ - fs←(ft⊏⥊"fmd"≍⌜⌽↕2)∾¨((+`0∾1+⌊128⋆⁼1⌈bc)⊏˜/1∾or∊bc0+⟜↕○≠rt)≍○<¨(ft⊏spd)∾⟜(⥊¨↑⟜•a)¨lc + fs←(ft⊏⥊"fmd"≍⌜⌽↕2)∾¨((+`0∾1+⌊128⋆⁼1⌈bc)⊏˜/1∾or M bc0≍○≠rt)≍○<¨(ft⊏spd)∾⟜(⥊¨↑⟜•a)¨lc ⟨LEBv bc,u,fs⟩ } diff --git a/src/c.bqn b/src/c.bqn index 6fe815ef..81520297 100644 --- a/src/c.bqn +++ b/src/c.bqn @@ -124,7 +124,7 @@ Parse ← {nv‿r←𝕨 or←⍋idor∾g⊏˜∾⟨cn,cn,b,b,rt,dr,l,l,si,si,at,oa+1⌈oa⊏os,(dy×⊏⟜os)⊸+fa+dy⟩ bc0←∾idbc∾⟨0¨cn,u⊐ob,15¨b,1+↕≠b⟩ bc←or⊏bc0∾∾⟨25¨rt,14¨dr,3+l⊏aa,ll,3+si⊏aa,sll,(11-⊑bG)+a/ma+𝕩,5+oa⊏r,(⊢+9×10⊸=)16+dy-7×fa⊏tr⟩ - fs←(ft⊏⥊3≍⌜⟜⌽○↕2)∾¨((+`0∾1+⌊128⋆⁼1⌈bc)⊏˜/1∾or∊bc0+⟜↕○≠rt)≍○<¨lc+fsc + fs←(ft⊏⥊3≍⌜⟜⌽○↕2)∾¨((+`0∾1+⌊128⋆⁼1⌈bc)⊏˜/1∾or M bc0≍○≠rt)≍○<¨lc+fsc ⟨LEBv bc∾25,u,fs⟩ } -- cgit v1.2.3