From e34577b432ad308d4f88e65784b68f81eebd4ed4 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 8 Aug 2020 10:33:48 -0400 Subject: Fast monadic transpose --- src/r.bqn | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/r.bqn b/src/r.bqn index 0bfd5da4..d153a53d 100644 --- a/src/r.bqn +++ b/src/r.bqn @@ -31,6 +31,7 @@ _fold←{ ToArray ← <⍟(1-IsArray) Int←IsArray◶⟨⌊⊸=,0⟩ Nat←IsArray◶⟨0⊸≤×⌊⊸=,0⟩ +Cell←{(𝕨⊸+⊑𝕩˜)⌜↕(≠𝕩)-𝕨}⟜≢ ∾ ← {k←≠𝕨⋄k⊸≤◶⟨⊑⟜𝕨⋄-⟜k⊑𝕩˜⟩⌜↕k+≠𝕩} # LIMITED to two vector arguments @@ -96,6 +97,11 @@ Indices←{ }⍟(0