a couple more fill tests

This commit is contained in:
dzaima 2025-05-13 07:24:24 +03:00
parent ff406c9586
commit 0c424df8b7
2 changed files with 10 additions and 0 deletions

View File

@ -1,7 +1,14 @@
%DEF fill Fill•internal.HasFill'e'{10𝕩}
%DEF eqall EqAll {!(𝕩)¨ 𝕩 𝕩}
%USE fill F¬ Fill¨ F "",0,00, FillF¨ , 00, 0, 020, "", 20"" %!HEAPVERIFY %% ' ',0,00,'e',00,0,0,' ',' '
%USE fill F- Fill¨ F "",0,00, FillF¨ , 00, 0, 020, "", 20"" %!HEAPVERIFY %% ' ',0,00,'e',00,0,0,' ',' '
%USE fill F| Fill¨ F "",0,00, FillF¨ , 00, 0, 020, "", 20"" %!HEAPVERIFY %% ' ',0,00,'e',00,0,0,' ',' '
%USE fill F 0,1,{},+,@,'𝕩' FillF , 00, 0, 020, "", 20"" %!HEAPVERIFY %% 24/['e',00,0,0,'e','e','e','e','e','e','e','e']
%USE fill F× 0,1,{},+,@,'𝕩' FillF , 00, 0, 020, "", 20"" %!HEAPVERIFY %% 24/['e',00,0,0,'e','e','e','e','e','e','e','e']
%USE fill F 0,1,{},+,@,'𝕩' FillF , 00, 0, 020, "", 20"" %!HEAPVERIFY %% 24/['e',00,0,0,'e','e','e','e','e','e','e','e']
%USE fill F= 0,1,{},+,@,'𝕩' FillF , 00, 0, 020, "", 20"" %!HEAPVERIFY %% 66'e',00,0,0,0,0,'e',00,0,0,0,0,'e','e',0,0,0,0,'e','e',0,0,0,0,'e',00,0,0,0,0,'e',00,0,0,0,0
%USE fill F+ 0,1,{},+,@,'𝕩' FillF , 00, 0, 020, "", 20"" %!HEAPVERIFY %% 66'e',00,0,0,' ',' ','e',00,0,0,' ',' ','e','e','e','e','e','e','e','e','e','e','e','e','e'," ",' ',' ','e','e','e'," ",' ',' ','e','e'
%USE fill F- 0,1,{},+,@,'𝕩' FillF , 00, 0, 020, "", 20"" %!HEAPVERIFY %% 66'e',00,0,0,'e','e','e',00,0,0,'e','e','e','e','e','e','e','e','e','e','e','e','e','e','e'," ",' ',' ',0,0,'e'," ",' ',' ',0,0
%USE fill F-˜ 0,1,{},+,@,'𝕩' FillF , 00, 0, 020, "", 20"" %!HEAPVERIFY %% 66'e',00,0,0,' ',' ','e',00,0,0,' ',' ','e','e','e','e','e','e','e','e','e','e','e','e','e','e','e','e',0,0,'e','e','e','e',0,0

View File

@ -88,6 +88,9 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨"𝕨",•Repr𝕩,
2301/4312 %% ¨6301201234534534591011
2301/4 %% 6001113
2301/4 %% ¨6001113
""/3 %% 3
!"Expected non-negative integer, got character" % "abc"/3
!"Expected non-negative integer, got character" % "ab"/229
!"Expected non-negative integer, got ¯3" % 2¯3/2
!"Expected non-negative integer, got ¯3e20" % 2¯3e20/2
!"𝕨/𝕩: Lengths of components of 𝕨 must match 𝕩 (3 ≠ 4)" % 123/4567