aboutsummaryrefslogtreecommitdiff
path: root/spec/dzref
diff options
context:
space:
mode:
Diffstat (limited to 'spec/dzref')
-rwxr-xr-xspec/dzref10
1 files changed, 5 insertions, 5 deletions
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 ← ⊐˜(⊢-⊏)⍋∘⍋