diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-25 20:54:54 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-25 20:54:54 -0400 |
| commit | d4ae9cd4b1688020af6099d9abae83af2b956ed9 (patch) | |
| tree | bb98994724cefd986fbe8fbe1f7ded30f57889ba /spec/reference.bqn | |
| parent | 8058deedb1be07faad67d93100652fe39f9bdc75 (diff) | |
Small fixes to reference implementations
Diffstat (limited to 'spec/reference.bqn')
| -rw-r--r-- | spec/reference.bqn | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/spec/reference.bqn b/spec/reference.bqn index 7ed84b1f..6cb4f904 100644 --- a/spec/reference.bqn +++ b/spec/reference.bqn @@ -180,7 +180,7 @@ Depth←IsArray◶0‿{1+0⌈´Depth¨⥊𝕩} ≍ ← >∘Pair ⎉ ← _rankOp_ ⚇ ← _depthOp_ -⍟ ← _iterate_ +⍟ ← _repeat_ ˘ ← ⎉¯1 ˝ ← _insert ` ← _scan @@ -226,7 +226,7 @@ _scan←{ (≢𝕩)⥊r }𝕩 } -_iterate_←{ +_repeat_←{ n←𝕨𝔾𝕩 f←⊑𝕨⟨𝔽⟩⊘⟨𝕨𝔽⊢⟩𝕩 l←u←0 @@ -359,7 +359,7 @@ Group←{ IndexOf←{ c←1-˜=𝕨 ! 0≤c - 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,(+´˝∧`)≢⎉c⎉c‿∞⟩ 𝕩 + 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,(+˝∧`)≢⎉c⎉c‿∞⟩ 𝕩 } UniqueMask←{ ! 1≤=𝕩 @@ -409,7 +409,7 @@ _bins←{ ! 0≤c LE←𝔽⎉c≤0˜ ! (0<≠)◶⟨1,∧´·LE˝˘2↕⊢⟩𝕨 - 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,+´˝LE⎉¯1‿∞⟩ 𝕩 + 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,+˝LE⎉¯1‿∞⟩ 𝕩 } OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋ |