fix test/squeezeValid.bqn
This commit is contained in:
parent
66ea63a49d
commit
c508e2ccd9
@ -21,7 +21,7 @@ Do ← { 𝕊:
|
||||
|
||||
F ← { 𝕊:
|
||||
p ← {r.Range 2? r.Range l; (¯1+l-⊢)⍟(r.Range 2) r.Range (2⋆r.Range 10)⌊l}
|
||||
b ← 𝕩⌾(p⊸⊑) a
|
||||
b ← 𝕩˙⌾(p⊸⊑) a
|
||||
! b EEqual Squeeze b # won't be acceptable with in-place squeezing, but that doesn't exist yet
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user