From 21770e2f44ec3cd6f654d28eedb581c915d558fa Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sun, 12 Jul 2020 17:32:31 -0400 Subject: Fix _bins reference implementation --- spec/dzref | 10 +++++----- spec/reference.bqn | 10 +++++----- 2 files changed, 10 insertions(+), 10 deletions(-) (limited to 'spec') diff --git a/spec/dzref b/spec/dzref index f0354d9f..23ea3390 100755 --- a/spec/dzref +++ b/spec/dzref @@ -160,11 +160,11 @@ _grade←{ i⊐˜+´˘((2⥊≠𝕩)⥊𝔽⎉∞‿¯1⎉¯1‿∞˜𝕩)(⌈⟜0+=⟜0⊸×)>⌜˜i←↕≠𝕩 } _bins←{ - r←1-˜≠≢𝕨 - ! 0≤r - LE←0≤𝔽⎉r - ! (0<≠)◶⟨1,∧´·LE´˘2↕<˘⟩𝕩 - +´𝕨LE⎉¯1‿∞𝕩 + c←1-˜≠≢𝕨 + ! 0≤c + LE←𝔽⎉c≤0˜ + ! (0<≠)◶⟨1,∧´·LE´˘2↕<˘⟩𝕨 + 𝕨 (0<≠𝕨)◶⟨0⎉c∘⊢,(+´<˘)LE⎉¯1‿∞⟩ 𝕩 } OccurrenceCount ← ⊐˜(⊢-⊏)⍋∘⍋ 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