uCBQN/test/cases/fills.bqn
2025-05-26 04:28:35 +03:00

59 lines
5.1 KiB
BQN
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

%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
%USE fill (> !Fill )¨ 0, ""
%USE fill ,Fill,Fill Fill{𝕎𝕩}¨< 0012<2 %% ,,00
!¥internal.HasFill <"hello"+
%USE fill fa Fill¨ a0, 234, 204, 023, 2<0,'a',{},12 {𝕊f : fa {!𝕨Fill F 𝕩}¨ a}¨ , 0/, 0, 0, 0, fa %% 5/0,' ','e',00
%USE fill a10<12 { a𝕩@}¨100<<12 Fill a %% 00
%USE fill a10<12 {a0a a𝕩@}¨100<<12 Fill a %% 00
%USE fill {𝕊: a10<12 { a𝕩@}¨(𝕩<<12)<<123 a!'e'Fill a}¨ 100
%USE fill {𝕊: a10<12 {a0a a𝕩@}¨(𝕩<<12)<<123 a!'e'Fill a}¨ 100
%USE fill Fill ¨ %!EACH_FILLS %% 'e'
%USE fill Fill ¨ %EACH_FILLS %% 0
%USE fill Fill ¨ %% 'e'
%USE fill Fill ¨ %% 'e'
%USE fill Fill ¨ %% 'e'
%USE fill Fill ¨ "" %!EACH_FILLS %% ' '
%USE fill Fill ¨ "" %EACH_FILLS %% 0
%USE fill Fill ¨"" %!EACH_FILLS %% ' '
%USE fill Fill ¨"" %!EACH_FILLS %% ' '
%USE fill Fill ¨"" %!EACH_FILLS %% ' '
%USE fill Fill ¨"" %EACH_FILLS %% 0
%USE fill Fill ¨"" %EACH_FILLS %% ' '
%USE fill Fill ¨"" %EACH_FILLS %% ' '
{3 -˝𝕩2<<'a'}¨ 56 %!HEAPVERIFY %% <¨¨ "aa ", 30
{3 (22)-˝𝕩2<<'x'}¨ 56 %!HEAPVERIFY %% <¨¨ "vv ", 220
{3 "ee"-˝𝕩2<<'a'}¨ 56 %!HEAPVERIFY %% <¨¨ ¯4¯40, "ee "
%USE fill Fill ( 4) ˝ "Ah"•internal.Variation 44'a' %% 0
%USE fill Fill (4) ˝ "Ah"•internal.Variation 44'a' %% 'e'
%USE fill Fill ( 4) ˝ 44'a' %% 0
%USE fill Fill (4) ˝ 44'a' %% 0 %!HEAPVERIFY
%DEF sqfill SqFill {•internal.Squeeze "Ah"•internal.Variation 𝕩}
%USE fill %USE eqall %USE sqfill F•internal.Keep {EqAll Fill¨ SqFill 𝕩, F¨<𝕩, @F¨<𝕩, @F¨𝕩}¨ "abc", 4, 'a', {}
%USE fill %USE eqall %USE sqfill F•internal.Keep {EqAll Fill¨ SqFill 𝕩, F¨ 𝕩, @F¨ 𝕩 }¨ "abc", 4, 'a', {}
2 'a'+¨ 1 %% "b "
2 {} 'a'+¨ 1 %% "b "
# TODO:
# ⟨↑‿3⥊↕10 ⋄ ↑‿3⥊<¨↕10 ⋄ ↑‿3⥊<˘↕10⟩
# 5‿¯5↑⌜⟨↕2 ⋄ "ab" ⋄ <¨↕2 ⋄ <˘↕2⟩