test for flag-based squeeze

This commit is contained in:
dzaima 2025-05-13 16:57:48 +03:00
parent b9ccafcf3f
commit 87089515d5

View File

@ -408,6 +408,7 @@ a←•internal.Unshare ↕10 ⋄ b←10⥊<a ⋄ ! 11 ≡ •internal.Refc a
•internal.HasFill¨ 0, 10, , 'a'1, "" %% 11001 •internal.HasFill¨ 0, 10, , 'a'1, "" %% 11001
# •internal.Squeeze # •internal.Squeeze
a"Ai32"•internal.Variation 10 •internal.Type •internal.Squeeze a %% "i8arr" a"Ai32"•internal.Variation 10 •internal.Type •internal.Squeeze a %% "i8arr"
{! 𝕩 •internal.Squeeze 𝕩}¨ {0•Cmp´0¯1𝕩? 𝕩@; 𝕩@}¨ {´1e9|0¯1𝕩? 𝕩; 𝕩,"Ai32"•internal.Variation 𝕩}¨ 11000/¨ {0𝕩,𝕩0}¨ 12¯1 ¯1- 0¯1 + 271531
# •internal.DeepSqueeze # •internal.DeepSqueeze
a"Ai32"•internal.Variation 10 •internal.Type •internal.DeepSqueeze a %% "i8arr" a"Ai32"•internal.Variation 10 •internal.Type •internal.DeepSqueeze a %% "i8arr"
# •internal.ClearRefs # •internal.ClearRefs