diff options
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 ← ⊐˜(⊢-⊏)⍋∘⍋ |
