The bug also happens in the function bellow that:
delete!(x : %, i : UniversalSegment(Integer))
==
(l := lo i) < (m := minIndex x) => error "index out of
range"
h := if hasHi i then hi i else maxIndex
x
h < l =>
x
l = m => rest(x, (h + 1 -
m)::NonNegativeInteger)
t := rest(x, (l - 1 -
m)::NonNegativeInteger)
setrest!(t, rest(t, (h - l +
2)::NonNegativeInteger))
x
(1) -> li := [5,6,7,8,9]
(1) [5,6,7,8,9]
Type:
List(PositiveInteger)
(2) -> delete!(li,1..3)
(2) [8,9]
Type:
List(PositiveInteger)
(3) -> li
(3) [5,6,7,8,9]
Type:
List(PositiveInteger)
--
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.
