diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-12 17:32:31 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-07-12 17:32:31 -0400 |
| commit | 21770e2f44ec3cd6f654d28eedb581c915d558fa (patch) | |
| tree | d5a843a5eb9fc530f3971c82e903536170b3bdc3 /spec | |
| parent | 1ee8523e41c6e81943fec9fc8c315c2985576880 (diff) | |
Fix _bins reference implementation
Diffstat (limited to 'spec')
| -rwxr-xr-x | spec/dzref | 10 | ||||
| -rw-r--r-- | spec/reference.bqn | 10 |
2 files changed, 10 insertions, 10 deletions
@@ -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 ← ⊐˜(⊢-⊏)⍋∘⍋ |