aboutsummaryrefslogtreecommitdiff
path: root/spec
diff options
context:
space:
mode:
Diffstat (limited to 'spec')
-rwxr-xr-xspec/dzref4
1 files changed, 2 insertions, 2 deletions
diff --git a/spec/dzref b/spec/dzref
index db98ef89..5eb258ec 100755
--- a/spec/dzref
+++ b/spec/dzref
@@ -283,13 +283,13 @@ Cmp ← ∨○IsArray◶{ ⍝ No arrays
_grade←{
! 1≤≠≢𝕩
- i⊐˜+´˘(𝔽⎉∞‿¯1⎉¯1‿∞˜𝕩)(⌈⟜0+=⟜0⊸×)>⌜˜i←↕≠𝕩
+ i⊐˜+´˘((2⥊≠𝕩)⥊𝔽⎉∞‿¯1⎉¯1‿∞˜𝕩)(⌈⟜0+=⟜0⊸×)>⌜˜i←↕≠𝕩
}
_bins←{
r←1-˜≠≢𝕨
! 0≤r
LE←0≤𝔽⎉r
- ! ∧´LE´˘2↕<˘𝕩
+ ! (0<≠)◶⟨1,∧´·LE´˘2↕<˘⟩𝕩
+´𝕨LE⎉¯1‿∞𝕩
}