From 1dd9e860395cd85ba8d044359c9e45cd57951506 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 27 Sep 2020 14:12:33 -0400
Subject: Shorten expression reversing by starting with forward instead of
 backwards cycles

---
 src/c.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/c.bqn b/src/c.bqn
index dbf61d50..0e2a876b 100644
--- a/src/c.bqn
+++ b/src/c.bqn
@@ -109,7 +109,7 @@ Parse ← {r‿nv←𝕨
   sl←«⊸∨𝕩 M bL⋄sr←»⌾(g⊸⊏)sl⋄sa←sl∨sr
   o←p>0⋄ps←o∨sl∨𝕩 M bS⋄pt←sa<𝕩=1+⊑bB
   g⊏˜↩⍋g⊏sl
-  rev←⍋+`1+¯1↓g((¯1∾⊣)(⊣⍋⊸⊏⊏˜-⊏˜⟜⍋)⟜⍋1(+`∘∾-∾˜)⊏)ps
+  rev←⍋+`¯1↓(¯1∾g)(⊣⍋⊸⊏⊏˜⟜⍋¬⊏˜)⍋+`⊸+1∾g⊏ps
 
   gf←⍋fd←+`rev⊏br
   rev⊏˜↩gf⋄fd⊏˜↩gf
-- 
cgit v1.2.3