aboutsummaryrefslogtreecommitdiff
path: root/spec/reference.bqn
diff options
context:
space:
mode:
Diffstat (limited to 'spec/reference.bqn')
-rw-r--r--spec/reference.bqn11
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 ← ⊐˜(⊢-⊏)⍋∘⍋