diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-21 19:48:24 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-21 19:48:24 -0400 |
| commit | 93f75e97685520cdad3afab0134e2f65e5e211e2 (patch) | |
| tree | 790c97ead26f8417b199922136f69397c703ddad /spec/reference.bqn | |
| parent | b3ecbb5695a5a0a0637c924da0022abca940ffee (diff) | |
Add Insert (˝) 1-modifier
Diffstat (limited to 'spec/reference.bqn')
| -rw-r--r-- | spec/reference.bqn | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn index 5d5424d8..1d0a5cca 100644 --- a/spec/reference.bqn +++ b/spec/reference.bqn @@ -182,6 +182,7 @@ Depth←IsArray◶0‿{1+0⌈´Depth¨⥊𝕩} ⚇ ← _depthOp_ ⍟ ← _iterate_ ˘ ← ⎉¯1 +˝ ← _insert ` ← _scan DropV← {⊑⟜𝕩¨𝕨+↕𝕨-˜≠𝕩} @@ -211,6 +212,10 @@ _rankOp_←{ } > ((⊑k)Enc𝕨) 𝔽¨ ((1-˜≠)⊸⊑k)Enc𝕩 } +_insert←{ + ! 1≤=𝕩 + 𝕨 𝔽´ <˘𝕩 +} _scan←{ ! IsArray 𝕩 ! 1≤=𝕩 @@ -354,7 +359,7 @@ Group←{ IndexOf←{ c←1-˜=𝕨 ! 0≤c - 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,((+´<˘)∧`)≢⎉c⎉c‿∞⟩ 𝕩 + 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,(+´˝∧`)≢⎉c⎉c‿∞⟩ 𝕩 } UniqueMask←{ ! 1≤=𝕩 @@ -403,8 +408,8 @@ _bins←{ c←1-˜=𝕨 ! 0≤c LE←𝔽⎉c≤0˜ - ! (0<≠)◶⟨1,∧´·LE´˘2↕<˘⟩𝕨 - 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,(+´<˘)LE⎉¯1‿∞⟩ 𝕩 + ! (0<≠)◶⟨1,∧´·LE˝˘2↕⊢⟩𝕨 + 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,+´˝LE⎉¯1‿∞⟩ 𝕩 } OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋ |