From 470aa6da21433408e2458c75c206f845e1cc3c0e Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 1 Nov 2020 17:24:27 -0500
Subject: Add list support to explainer

---
 src/e.bqn | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/e.bqn b/src/e.bqn
index e356ac70..d1265e79 100644
--- a/src/e.bqn
+++ b/src/e.bqn
@@ -54,9 +54,10 @@ Explain ← {
     Se←{(⊏˜𝕨)Se 1¨⌾((𝕩/𝕨)⊸⊏)𝕩}⍟(0=¯1⊑⊢)
     (≠↑∾⟜≠Se 1∾0¨) n
   }
-  mb‿mi ← m⊸/¨ b‿i
-  mi↓˜↩¯1
-  r←+`(mb⊏bo)-na←mb⊏bc
+  mb‿mi ← 0‿¯1 ↓¨ m⊸/¨ b‿i
+  la←¯1=na←mb⊏bc
+  na(b⊏˜1+⊣)⌾(la⊸/)˜↩/m
+  r←+`(mb⊏bo)-na
   ! 1=¯1⊑r
   d←+`⊸×f←0<na
   p←((¯1↓r)⍋⊸⊏○⍋(⊏⟜r+⊒))⊸⊏/na
@@ -76,7 +77,7 @@ Explain ← {
 
   j←¯1↓((1-˜+`¬f)⊏ii)⊏˜⊏˜⍟≠{s←𝕩⊏˜g←⍋𝕩⋄(g/˜(⊒s)=s⊏mb⊏bp)⌾((⍷s)⊸⊏)↕≠mb}p
   je←j∾¯1.25
-  q←(/f∨j≠p⊏je) (⊏≍⊣) p
+  q←(/f∨j≠p⊏je-la) (⊏≍⊣) p
 
   pd ← <⊸∾⟜⌽˘˜˝ q ⊏ ⍉wh×0.6‿0.1+je≍d
   dim← (wh×⟨≠𝕩,2+⌈´d⟩)+2‿0×pad
-- 
cgit v1.2.3