aboutsummaryrefslogtreecommitdiff
path: root/c.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-31 10:47:53 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-31 10:47:53 -0400
commit1a15fa1cb984dd1d6bd3f5c5b56e0169b1085edf (patch)
treecb57cee8bdf8f9e8bcfb5617c400a8630c0f2784 /c.bqn
parent0d13401bde67f9e8106d8189eec2edb9662d4436 (diff)
Use dyadic inverse instead of inverting a train
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 45286af3..23833a01 100755
--- a/c.bqn
+++ b/c.bqn
@@ -193,7 +193,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,16+dy-7×fa⊏tr⟩
+ 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
⟨LEBv bc,u,fs⟩
}