From d4ae9cd4b1688020af6099d9abae83af2b956ed9 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 25 Jul 2020 20:54:54 -0400 Subject: Small fixes to reference implementations --- spec/reference.bqn | 8 ++++---- 1 file 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 ← ⊐˜(⊢-⊏)⍋∘⍋ -- cgit v1.2.3