September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Singly-linked-list-Traversal/Phix/singly-linked-list-traversal.phix
+++ b/Task/Singly-linked-list-Traversal/Phix/singly-linked-list-traversal.phix
@ -0,0 +1,23 @@
+enum NEXT,DATA
+constant empty_sll = {{1}}
+sequence sll = empty_sll
+
+procedure insert_after(object data, integer pos=length(sll))
+    sll = append(sll,{sll[pos][NEXT],data})
+    sll[pos][NEXT] = length(sll)
+end procedure
+
+insert_after("ONE")
+insert_after("TWO")
+insert_after("THREE")
+
+?sll
+
+procedure show()
+integer idx = sll[1][NEXT]
+    while idx!=1 do
+        ?sll[idx][DATA]
+        idx = sll[idx][NEXT]
+    end while
+end procedure
+show()