aboutsummaryrefslogtreecommitdiff
path: root/dc.bqn
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-12 17:32:31 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-12 17:32:31 -0400
commit21770e2f44ec3cd6f654d28eedb581c915d558fa (patch)
treed5a843a5eb9fc530f3971c82e903536170b3bdc3 /dc.bqn
parent1ee8523e41c6e81943fec9fc8c315c2985576880 (diff)
Fix _bins reference implementation
Diffstat (limited to 'dc.bqn')
-rwxr-xr-xdc.bqn2
1 files changed, 1 insertions, 1 deletions
diff --git a/dc.bqn b/dc.bqn
index 53808991..020ef566 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -26,7 +26,7 @@ Tokenize←{
g←⍋q←∾⟨ s⋄¯1↓d⋄/r⟩ ⋄q↩g⊏q
e← g⊏∾⟨2+s⋄ 1↓d⋄(⊢-¯1↓0∾⊢)∘⊏⟜(0∾+`r)⊸//(𝕩=nl)∾1⟩
Se←{(⊏˜𝕨)Se 1¨⌾((𝕩/𝕨)⊸⊏)𝕩}⍟{0=⊑⌽𝕩}
- st←¯1↓Se⟜(1↑˜≠)∾⟜≠q⊸⍋¨e⋄b←st/q∾˘e
+ st←¯1↓Se⟜(1↑˜≠)∾⟜≠q⍋e⋄b←st/q∾˘e
ToI←¯1↓·/⁼(≠𝕩)∾˜⥊⋄f←¬≠`ToI b
cb←(¬(st/q)⊏r)/b
nl←≠lu←⍷lit←𝕩⊔˜1-˜(+`ToI⊑˘cb)×≠`ToI cb