fix ∾˝⎉k refcounting
This commit is contained in:
parent
a9f59b5793
commit
a9fbd0301d
@ -494,7 +494,7 @@ B insert_cells_join(B x, usz* xsh, ur cr, ur k) {
|
||||
shcpy(rsh->a+k+1, xsh+k+2, cr-2);
|
||||
Arr* r = TI(x,slice)(x, 0, IA(x));
|
||||
arr_shSetUG(r, rr, rsh);
|
||||
decG(x); return taga(r);
|
||||
return taga(r);
|
||||
}
|
||||
B insert_cells_identity(B x, B f, usz* xsh, ur xr, ur k, u8 rtid) {
|
||||
B id;
|
||||
|
||||
@ -65,6 +65,11 @@
|
||||
!"´: Argument must be a list (3‿3 ≡ ≢𝕩)" % +´˘2‿3‿3⥊↕18
|
||||
!"´: 𝕩 must be a list (3‿3 ≡ ≢𝕩)" % 1+´˘2‿3‿3⥊↕18
|
||||
!"˝: 𝕩 must have rank at least 1" % +˝˘˘10‿10⥊↕100
|
||||
!"˝: 𝕩 must have rank at least 1" % ∾˝⎉¯2 2‿3⥊9
|
||||
|
||||
{∾˝˘ ⥊⟜(↕×´) 2+↕𝕩}¨ 2‿3‿4‿5 %% ⥊⟜(↕×´)¨ ⟨2‿3,2‿12,2‿12‿5,2‿12‿5‿6⟩
|
||||
{∾˝˘ (2+↕𝕩)⥊<"hi"}¨ 2‿3‿4‿5 %% ⥊⟜(<"hi")¨ ⟨2‿3,2‿12,2‿12‿5,2‿12‿5‿6⟩
|
||||
{∾˝⎉¯2 ⥊⟜(↕×´) 2+↕𝕩}¨ 3‿4‿5 %% ⥊⟜(↕×´)¨ ⟨2‿3‿4,2‿3‿20,2‿3‿20‿6⟩
|
||||
|
||||
%USE tcc ⋄ ⟨2, 20, ¯2, ¯20, 0⟩ {𝕨 ↑_tcc 𝕩 ⋄ 𝕨 ↓_tcc 𝕩}⌜ ⟨<4, ↕5, 4‿5⥊↕20, 4‿5‿6⥊↕120⟩
|
||||
%USE tcc ⋄ ⟨<, ≍, ⊏, ⥊⟩ {𝕎 _tcc 𝕩}⌜ ⟨<4, ↕5, 4‿5⥊↕20, 4‿5‿6⥊↕120, 2‿3‿4‿5⥊↕120⟩
|
||||
|
||||
Loading…
Reference in New Issue
Block a user