Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
function set_mirror (line : in string) return string is
begin
   return line;
end set_mirror;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
function set_sorted (line : in string) return string is
   Me : string := "Manuel";
begin
  return Astar (line, me);
ens set_sorted;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
with text_io;
procedure imself is
   type string_access is access all string;
 
   you : string_access := new string ' (text_io.get_line);
   name : string_access;
begin
   loop
      name := new string ' (set_sorted(you.all));
      put_line("my name is " & name.all);
      string_free(you);
      you := new string ' (set_mirror(name.all));
      string_free(name);
end imself;