diff options
author | dzaima <dzaimagit@gmail.com> | 2024-04-04 03:52:16 +0300 |
---|---|---|
committer | dzaima <dzaimagit@gmail.com> | 2024-04-04 03:54:55 +0300 |
commit | a6a088868cc3b27ae3979828740eb35f79ce11ac (patch) | |
tree | 6024ae5a97336a1b16b062d4c1272e2c0c368a17 | |
parent | 3870189f85e38478a6e0d3101f677dd5744ec721 (diff) |
fix ⟨⟩⍷⟨⟩
-rw-r--r-- | src/builtins/fns.c | 2 | ||||
-rw-r--r-- | test/cases/prims.bqn | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/src/builtins/fns.c b/src/builtins/fns.c index ca484b63..d96dfa0b 100644 --- a/src/builtins/fns.c +++ b/src/builtins/fns.c @@ -281,7 +281,7 @@ B find_c2(B t, B w, B x) { if (IA(x)==0) { emptyres:; - usz ia = 0; + usz ia = IA(w)==0; ShArr* sh = NULL; if (xr > 1) { sh = m_shArr(xr); diff --git a/test/cases/prims.bqn b/test/cases/prims.bqn index 307a34be..70bc88aa 100644 --- a/test/cases/prims.bqn +++ b/test/cases/prims.bqn @@ -302,7 +302,10 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe # 𝕨⍷𝕩 %USE eqvar ⋄ "ab" ⍷_eqvar "" %% ⟨⟩ %USE eqvar ⋄ "" ⍷_eqvar "ab" %% 1‿1‿1 -%USE eqvar ⋄ 0‿1 ⍷_eqvar ↕0 %% ⟨⟩ +%USE eqvar ⋄ ⟨ ⟩ ⍷_eqvar ↕0 %% ⟨1⟩ +%USE eqvar ⋄ ⟨{⇐} ⟩ ⍷_eqvar ↕0 %% ⟨⟩ +%USE eqvar ⋄ ⟨0, 1 ⟩ ⍷_eqvar ↕0 %% ⟨⟩ +%USE eqvar ⋄ ⟨{⇐},{⇐}⟩ ⍷_eqvar ↕0 %% ⟨⟩ %USE eqvar ⋄ (↕0) ⍷_eqvar 1‿0 %% 1‿1‿1 %USE eqvar ⋄ "ab" ⍷_eqvar 0‿5⥊"ab" %% 0‿4⥊0 (0⥊0)⍷1‿0⥊0 %% 1‿1⥊1 |