From 9bc3143f1ca0fd91614b199511e6eda450a5d338 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 11 Jul 2020 20:59:59 -0400
Subject: Simplify (shorten at least) expression reversing

---
 dc.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dc.bqn b/dc.bqn
index b7819f11..280acb83 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -129,7 +129,7 @@ Compile←{
 DParse ← {nv‿r𝕊𝕩:
   g←⍋+`p←bB(⊣(≠⊸>ׯ1⋆2|⊢)⊐)𝕩
   r+↩(𝕩=1⊑bB)(⊣∧¬⊸∨=○(⌈`(1+↕∘≠)⊸×)⊢)(¯1⊸⌽⌾(g⊸⊏)3=r)∨1≤r
-  rev←⍋+`(¯1↓⍋¯1∾g)⊏1+-○(⊏⟜(¯1∾g))⟜⍋⍋(∾⟜1-˜0∾+`)g⊏(p>0)∨𝕩∊bS
+  rev←⍋+`1+¯1↓(¯1∾g)(⊣⍋⊸⊏⊏˜-⊏˜⟜⍋)⍋1(+`∘∾-∾˜)g⊏(p>0)∨𝕩∊bS
   g↩⍋+`rev⊏p
   gr←g⊏rev⋄𝕩⊏˜↩gr⋄r⊏˜↩gr⋄o←gr⊏p>0
   s←𝕩∊bS⋄ps←s∨o⋄a←𝕩∊2↑bG
-- 
cgit v1.2.3