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;
Partager