ref: bd25454011010946b91c21e8af737d86505c4041
dir: /lib/std/slput.myr/
use "types"
use "alloc"
use "die"
pkg std =
generic slput : (sl : @a[:]#, idx : size, elt : @a -> @a[:])
generic sldel : (sl : @a[:]#, idx : size -> @a[:])
;;
generic slput = {sl, idx, elt
var i
var len
len = sl#.len
slgrow(sl, sl#.len + 1)
for i = len - 1; i >= idx; i--
sl#[i + 1] = sl#[i]
;;
sl#[idx] = elt
-> sl#
}
generic sldel = {sl, idx
for var i = idx; i < sl#.len - 1; i++
sl#[i] = sl#[i + 1]
;;
sl# = sl#[:sl#.len - 1]
-> sl#
}