diff options
Diffstat (limited to 'spec/reference.bqn')
| -rw-r--r-- | spec/reference.bqn | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn index 4b17031a..61767343 100644 --- a/spec/reference.bqn +++ b/spec/reference.bqn @@ -208,7 +208,14 @@ Merge←(0<≠∘⥊)◶⊢‿{ ! ∧´⥊(c≡≢)¨𝕩 𝕩⊑⟜ToArray˜⌜↕c } -_ranks ← {⟨2⟩⊘⟨1,0⟩((⊣-1+|)˜⟜≠⊑¨<∘⊢)⥊∘𝔽} +ValidateRanks←{ + ! 1≥=𝕩 + 𝕩↩⥊𝕩 + ! (1⊸≤∧≤⟜3)≠𝕩 + ! ∧´Int¨𝕩 + 𝕩 +} +_ranks ← {⟨2⟩⊘⟨1,0⟩ ((⊣-1+|)˜⟜≠⊑¨<∘⊢) ValidateRanks∘𝔽} _depthOp_←{ neg←0>n←𝕨𝔾_ranks𝕩 ⋄ F←𝔽 _d←{ |