diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-14 20:04:47 -0500 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-01-14 20:51:33 -0500 |
| commit | b902b3916af8aaeb74aa728a0e0eec359d0b099b (patch) | |
| tree | 779d6c3ba37221e5b014b54df6144687bcb248cd /test | |
| parent | 9ebac7b4fc344e52a39db2082e2fa848691c9bdd (diff) | |
Handle duplicate indices in structural Under
Diffstat (limited to 'test')
| -rw-r--r-- | test/cases/under.bqn | 14 |
1 files changed, 7 insertions, 7 deletions
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 |