diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-30 19:30:58 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-30 19:31:21 -0400 |
| commit | 723f6a92c6af9a46dfbd066fb18e014868bd6487 (patch) | |
| tree | 685420c8757ecfe143b68cae8362b5a0acab3a93 /spec/reference.bqn | |
| parent | 5cfbc5909bd33b5927f7b1fdb44944819563a385 (diff) | |
Tests for layer 4; fix ⚇ with non-matching depths
Diffstat (limited to 'spec/reference.bqn')
| -rw-r--r-- | spec/reference.bqn | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn index 6ecf59d3..5a6ab5ab 100644 --- a/spec/reference.bqn +++ b/spec/reference.bqn @@ -196,7 +196,10 @@ Unbox←(0<≠∘⥊)◶⊢‿{ _ranks ← {⟨2⟩⊘⟨1,0⟩((⊣-1+|)˜⟜≠⊑¨<∘⊢)⥊∘𝔽} _depthOp_←{ neg←0>n←𝕨𝔾_ranks𝕩 ⋄ F←𝔽 - _d←{𝕨(∧´(neg∧𝕗≥0)∨(0⌈𝕗)≥Pair○≡)◶⟨(𝕗+neg)_d¨⋄F⟩𝕩} + _d←{ + R←(𝕗+neg)_d + 𝕨(2⥊(neg∧𝕗≥0)∨(0⌈𝕗)≥Pair○≡)◶(⟨R¨⋄R⟜𝕩¨∘⊣⟩≍⟨(𝕨R⊢)¨∘⊢⋄F⟩)𝕩 + } 𝕨 n _d 𝕩 } _rankOp_←{ @@ -220,7 +223,7 @@ _scan←{ } _iterate_←{ n←𝕨𝔾𝕩 - F←𝕨(0⊘1)◶⟨𝔽,𝕨𝔽⊢⟩⊢ + f←⊑𝕨⟨𝔽⟩⊘⟨𝕨𝔽⊢⟩𝕩 l←u←0 {!Int𝕩⋄l↩l⌊𝕩⋄u↩u⌈𝕩}⚇0 n a←𝕩⋄_p←{𝔽∘⊣`(1+𝕩)⥊<a} |