Make the complicated parts of Take conditional

1 files changed, 3 insertions, 3 deletions

diff --git a/impl.bqn b/impl.bqn
index caeab991..38ec5adf 100644
--- a/impl.bqn
+++ b/impl.bqn
@@ -217,9 +217,9 @@ JoinTo←∨○(1≠=)◶∾‿{
 Take←{
   T←{
     ! Int 𝕨
-    l←≠𝕩
-    i←(l+1)|¯1⌈l⌊((𝕨<0)×𝕨+l)+↕|𝕨
-    i⊏JoinTo⟜(1⊸Cell⥊Type)⍟(∨´l=i)𝕩
+    l←≠𝕩 ⋄ n←𝕨<0 ⋄ e←l⌊r←|𝕨 ⋄ s←⟨r⟩
+    i ← 𝕩{s∾↩c←1 Cell 𝕨⋄𝕩(×+⌜↕∘⊢)×´c}⍟(1≠=𝕩) (l-e)+⍟n ↕e
+    s ⥊ 𝕩{(⥊𝕩)n◶⟨∾,∾˜⟩(r-e)⥊Type𝕗}⍟(l<r) ⊑⟜(⥊𝕩)¨i
   }
   𝕨 T _onAxes_ 0 (⟨1⟩⥊˜0⌈𝕨-○≠⊢)⊸∾∘≢⊸⥊𝕩
 }