From b902b3916af8aaeb74aa728a0e0eec359d0b099b Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Thu, 14 Jan 2021 20:04:47 -0500
Subject: Handle duplicate indices in structural Under

---
 test/cases/under.bqn | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'test')

diff --git a/test/cases/under.bqn b/test/cases/under.bqn
index 68455733..a63f74d4 100644
--- a/test/cases/under.bqn
+++ b/test/cases/under.bqn
@@ -17,20 +17,20 @@
 1 ≡ "cd"‿"ab"⊸⊐⌾< "ab"
 (0‿1+⌜0‿4‿2) ≡ ⍋∘⍋⌾⥊ "apl"≍"bqn"
 2 (⌽⌾⥊ ≡ 12|+) ⥊⟜(↕×´)6‿2
-#↕⊸≠⊸+{𝔽≡𝔽¨⌾↑} "abcde"
-#2⊸+{𝔽≡𝔽¨⌾↓} "abcde"
+↕∘≠⊸+{𝔽≡𝔽¨⌾↑} "abcde"
+2⊸+{𝔽≡𝔽¨⌾↓} "abcde"
 # Dyad
-! % ↕⊸≠⊸+⌾(10⊸⥊)↕6
+! % ↕∘≠⊸+⌾(10⊸⥊)↕6
 (⌽⍒⌊2÷˜↕7) ≡ ⌽˘⌾(⌊‿2⥊⊢)↕7
 ¯1‿0‿1‿3 ≡ -⟜(+´÷≠)⌾(3⊸↑)↕4
 "adcb" ≡ ⌽⌾(1⊸↓)"abcd"
 5‿6‿3‿0 ≡ (5‿3‿1⌾(0‿0⊸⍉)4‿3⥊0) +´∘×⎉1‿∞ 1+↕3
 "AbcD" ≡ ('A'-'a')⊸+⌾(1‿0‿0‿1⊸/)"abcd"
 "AbcD" ≡ "ABCD"⊣⌾(1‿0‿0‿1⊸/)"abcd"
-! % ↕⊸≠⊸+⌾(2⊸/)↕5
-#(1⊸⌽ ≡ 2⊸⌽⌾(2⊸/)) ↕5
+! % ↕∘≠⊸+⌾(2⊸/)↕5
+(1⊸⌽ ≡ 2⊸⌽⌾(2⊸/)) ↕5
 "bdca" ≡ 1⊸⌽⌾(1‿3‿0⊸⊏)"abcd"
-#! % 1⊸⌽⌾(1‿3‿3‿0⊸⊏)"abcd"
+! % 1⊸⌽⌾(1‿3‿3‿0⊸⊏)"abcd"
 ((¯1⋆2∧⌜○(⌽0=↕)3)⊸× ≡ -⌾(1‿2⊑⊢))↕2‿3
 ((0‿3≍1‿2)⊸+ ≡ ⟨1,2‿3⟩⊸+⌾(⟨1‿0,⟨1‿1,0‿1⟩⟩⊸⊑))↕2‿2
 # Compound
@@ -43,4 +43,4 @@
 3 % 1⊸+⌾-4
 2 % ⊢⌾2 3
 -2 % ⊢⌾(2∘-) 3
-#1 % ⊢⌾∘‿+ 1
+∘‿+ ≡ ⊢⌾∘‿+ 1
-- 
cgit v1.2.3