Re: chained List manipulation without recusrsion : lost the begining of my List!

["Zeg" <zeg.nospam@9online.fr>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 2382 bytes --]

I missed inserting at the head of the List so this the

 ultimate code

procedure Insert_iteratif(E : in Element; L : in out Liste) is

Aux : Liste := L;

Z : Liste;

begin
                if (L = null) then
                        L := new Maillon'(E,null);
                else
                         while (Aux /= null) loop
                                 if (Aux.all.valeur > E) then
                     if (z = null) then
                          L := new Maillon'(E,L);
                     else

z.all.suivant := new Maillon'(E,Aux);
                     end if;
                                          exit;
                                  elsif (Aux.all.suivant = null) then
                                           z.all.suivant := new
Maillon'(E,null);
                                           exit;
                                  end if;
                                  z := Aux ;
                                 Aux := Aux.all.suivant;
                           end loop;
                end if;

end Insert_iteratif;



"Simon Wright" <simon@pushface.org> a �crit dans le message de
news:x7vfzngg39y.fsf@smaug.pushface.org...
> "Zeg" <zeg.nospam@9online.fr> writes:
>
> > procedure Insert_iteratif(E : in Element; L : in out Liste) is
> > Aux : Liste := L;
> > Z : Liste := null;
>
> You don't need to initialize access variables, they are automatically
> set to null for you
>
> > begin
> >       if (Aux = null) then
> >          Aux := new Maillon'(E,null);
>
> L was empty, so what is it pointing to now? Should you have altered it?
>
> >       else
> >          while  (Aux /= null) loop
> >               if (Aux.all.valeur > E) then
> >                   L := new Maillon'(E,Aux);
>
> What has happened to all the previous elements in the list? (that L
> used to be pointing to)
>
> >                   exit;
> >             elsif (Aux.all.suivant = null) then
> >                   L:= new Maillon'(E,null);
>
> What has happened to all the previous elements in the list?
>
> >                   exit;
> >             end if;
> >             z := Aux ;
>
> What is Z for? You don't read it anywhere
>
> >             Aux := Aux.all.suivant;
> >          end loop;
> >      end if;
> >
> > end Insert_iteratif;
>
> It might help you to draw a picture of Maillons linked into a Liste,
> and how you want a new Maillon to be linked in.