This bug also happens in the function before delete!:
remove!(f : S -> Boolean, x : %)
==
while not empty? x and f first x repeat x := rest
x
empty? x =>
x
p :=
x
q := rest
x
while not empty? q
repeat
if f first q then q := setrest!(p, rest
q)
else (p := q; q := rest
q)
x
When try to remove! first element:
(1) -> li := [5,6,7,8,9]
(1) [5,6,7,8,9]
Type:
List(PositiveInteger)
(2) -> remove!(x+->x=5,li)
(2) [6,7,8,9]
Type:
List(PositiveInteger)
(3) -> li
(3) [5,6,7,8,9]
Type:
List(PositiveInteger)
(4) -> remove!(x+->x=6,li)
(4) [5,7,8,9]
Type:
List(PositiveInteger)
(5) -> li
(5) [5,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.
