slightly expanded ⍷ tests

This commit is contained in:
dzaima 2023-12-27 19:26:45 +02:00
parent 74673395f6
commit b27618b5fa

View File

@ -1,5 +1,6 @@
%DEF var V•internal.Variation LV•internal.ListVariations CLR•internal.ClearRefs
%DEF tvar %USE var _tvar {F _𝕣 x: (CLR@) {F 𝕩 V x}¨ LV 𝕩; w F _𝕣 x: (CLR@) (LV 𝕨) {(𝕨 V w) F 𝕩 V x} LV 𝕩}
%DEF eqvar %USE tvar _eqvar {r 𝕨 𝔽 _tvar 𝕩 r !¨ r r}
%DEF k _k {𝔽•internal.Keep}
# batch checks
@ -272,7 +273,9 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
!"⥊: Result rank too large" % (03002)0
# 𝕨⍷𝕩
"ab" 05"ab" %% 040
%USE eqvar "ab" _eqvar "" %%
%USE eqvar "" _eqvar "ab" %% 111
%USE eqvar "ab" _eqvar 05"ab" %% 040
'a'1 05 %% 040
"abc" 51'a' %% 500
(<"ab")<"aa", (<"ab")<"ab" %% <0,<1