diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-21 13:27:27 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-06-21 13:27:27 -0400 |
| commit | b2085b996ecfaeb564d144704fc06bf5f0ba7f75 (patch) | |
| tree | a7021304e66aa2d522362a116bd4ba14fef64cbf /spec/reference.bqn | |
| parent | 750298bccbe90cb6fed2dbb885bb6ff5d99561a6 (diff) | |
Add negative indexing to ⊏ and ⊑
Diffstat (limited to 'spec/reference.bqn')
| -rw-r--r-- | spec/reference.bqn | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn index 61e5313a..ea0db2a5 100644 --- a/spec/reference.bqn +++ b/spec/reference.bqn @@ -145,8 +145,9 @@ Range←{ Pick1←{ ! 1=≠≢𝕨 ! 𝕨=○≠s←≢𝕩 - ! ∧´Nat¨𝕨 - ! ∧´𝕨<s + ! ∧´Int¨𝕨 + ! ∧´𝕨(≥⟜-∧<)s + 𝕨↩𝕨+s×𝕨<0 (⥊𝕩)⊑˜0(⊑⟜𝕨+⊑⟜s×⊢)´↕≠𝕨 } Pickd←(∨´IsArray¨)◶Pick1‿{Pickd⟜𝕩¨𝕨} @@ -251,8 +252,9 @@ _onAxes_←{ SelSub←{ ! IsArray 𝕨 - ! Nat¨ 𝕨 - ! 𝕨 <¨ ≠𝕩 + ! Int¨ 𝕨 + ! ∧´⥊ 𝕨 (≥⟜-∧<) ≠𝕩 + 𝕨↩𝕨+(≠𝕩)×𝕨<0 c←×´s←1 Cell 𝕩 ⊑⟜(⥊𝕩)¨(c×𝕨)+⌜s⥊↕c } |