From 21770e2f44ec3cd6f654d28eedb581c915d558fa Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 12 Jul 2020 17:32:31 -0400
Subject: Fix _bins reference implementation

---
 spec/reference.bqn | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'spec/reference.bqn')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index 84f403bf..2072f96a 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -400,11 +400,11 @@ _grade←{
   i⊐˜+´˘(𝔽⎉∞‿¯1⎉¯1‿∞˜𝕩)(⌈⟜0+=⟜0⊸×)>⌜˜i←↕≠𝕩
 }
 _bins←{
-  r←1-˜≠≢𝕨
-  ! 0≤r
-  LE←0≤𝔽⎉r
-  ! ∧´LE´˘2↕<˘𝕩
-  +´𝕨LE⎉¯1‿∞𝕩
+  c←1-˜≠≢𝕨
+  ! 0≤c
+  LE←𝔽⎉c≤0˜
+  ! (0<≠)◶⟨1,∧´·LE´˘2↕<˘⟩𝕨
+  𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,(+´<˘)LE⎉¯1‿∞⟩ 𝕩
 }
 
 OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋
-- 
cgit v1.2.3