Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,18 +0,0 @@
|
|||
with Ada.Containers.Doubly_Linked_Lists;
|
||||
with Ada.Text_Io; use Ada.Text_Io;
|
||||
|
||||
procedure Traversal_Example is
|
||||
package Int_List is new Ada.Containers.Doubly_Linked_Lists(Integer);
|
||||
use Int_List;
|
||||
procedure Print(Position : Cursor) is
|
||||
begin
|
||||
Put_Line(Integer'Image(Element(Position)));
|
||||
end Print;
|
||||
The_List : List;
|
||||
begin
|
||||
for I in 1..10 loop
|
||||
The_List.Append(I);
|
||||
end loop;
|
||||
-- Traverse the list, calling Print for each value
|
||||
The_List.Iterate(Print'access);
|
||||
end traversal_example;
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
while(nil != current){
|
||||
console printLine(current.Item);
|
||||
Console printLine(current.Item);
|
||||
current := current.Next
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue