Sync

Task/Singly-linked-list-Traversal/00DESCRIPTION

@@ -1 +1,3 @@
 Traverse from the beginning of a singly-linked list to the end.
+
+{{Template:See also lists}}

Task/Singly-linked-list-Traversal/Logtalk/singly-linked-list-traversal-1.logtalk

@@ -0,0 +1,13 @@
+:- object(singly_linked_list).
+
+    :- public(show/0).
+
+    show :-
+        traverse([1,2,3]).
+
+    traverse([]).
+    traverse([Head| Tail]) :-
+        write(Head), nl,
+        traverse(Tail).
+
+:- end_object.

Task/Singly-linked-list-Traversal/Logtalk/singly-linked-list-traversal-2.logtalk

@@ -0,0 +1,5 @@
+| ?- singly_linked_list::show.
+1
+2
+3
+yes

Task/Singly-linked-list-Traversal/PL-I/singly-linked-list-traversal.pli

@@ -0,0 +1,41 @@
+*process source attributes xref or(!);
+ /*********************************************************************
+ * 25.10.2013 Walter Pachl
+ * 'set dd:in=d:\sll.txt,recsize(80)'
+ * 'sll'
+ *********************************************************************/
+ sll: Proc Options(main);
+ Dcl in       Record Input;
+ Dcl sysprint Print;
+ Dcl 1 elem Based(p),
+      2 next Ptr Init(null()),
+      2 value Char(20) Var;
+ Dcl head Ptr;
+ Dcl p    Ptr;
+ Dcl prev Ptr;
+ Dcl i    Bin Fixed(31);
+ Dcl rec  Char(80) Var;
+ Dcl null Builtin;
+ On Endfile(in) goto show;
+ Do i=1 By 1;
+   Read File(in) Into(rec);
+   alloc elem set(p);
+   If i=1 Then Do;
+     head=p;
+     prev=head;
+     value=rec;
+     End;
+   Else Do;
+     prev->next=p;
+     prev=p;
+     value=rec;
+     End;
+   End;
+
+ show:
+   p=head;
+   Do i=1 By 1 while(p^=null());
+     Put Edit(i,p->value)(skip,f(3),x(1),a);
+     p=p->next;
+     End;
+ End;

Task/Singly-linked-list-Traversal/REXX/singly-linked-list-traversal.rexx

@@ -0,0 +1,16 @@
+/*********************************************************************
+* 25.10.2013 Walter Pachl
+*********************************************************************/
+in='d:\sll.txt'
+Do i=1 By 1 while lines(in)>0
+  rec=linein(in)
+  elem.i.val=rec
+  elem.i.next=0
+  ip=i-1
+  elem.ip.next=i
+  End;
+c=1
+Do While c<>0
+  Say c elem.c.val
+  c=elem.c.next
+  End