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 --- dc.bqn | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'dc.bqn') 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 -- cgit v1.2.3