fix flags of take_head
This commit is contained in:
parent
f3c63d3887
commit
884d61476f
@ -94,6 +94,7 @@ static Arr* take_head(usz ria, B x) { // consumes; returns ria↑x with unset sh
|
|||||||
inplace_ok:;
|
inplace_ok:;
|
||||||
reinit_portion(a(x), ria, xia);
|
reinit_portion(a(x), ria, xia);
|
||||||
arr_shErase(a(x), 1);
|
arr_shErase(a(x), 1);
|
||||||
|
FL_KEEP(x, fl_asc|fl_dsc);
|
||||||
a(x)->ia = ria;
|
a(x)->ia = ria;
|
||||||
return a(x);
|
return a(x);
|
||||||
|
|
||||||
|
|||||||
@ -260,6 +260,10 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
|
|||||||
!"↑: Argument must have rank at least 1" % ↑0
|
!"↑: Argument must have rank at least 1" % ↑0
|
||||||
!"↓: Argument must have rank at least 1" % ↓<0
|
!"↓: Argument must have rank at least 1" % ↓<0
|
||||||
|
|
||||||
|
# 𝕨↓𝕩 & 𝕨↑𝕩
|
||||||
|
≠⍷•Hash¨ ⟨¯1↓•internal.Squeeze 1e9∾˜↕10000, ↕10000⟩ %% 1
|
||||||
|
≠⍷•Hash¨ ⟨10000↑•internal.Squeeze 1e9∾˜↕10000, ↕10000⟩ %% 1
|
||||||
|
|
||||||
# ¨
|
# ¨
|
||||||
1 {𝕊:1‿2}¨ 1 %% <1‿2
|
1 {𝕊:1‿2}¨ 1 %% <1‿2
|
||||||
1 {𝕊:1‿2}¨<1 %% <1‿2
|
1 {𝕊:1‿2}¨<1 %% <1‿2
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user