Another update from ingydotnet^djgoku

Task/Singly-linked-list-Element-insertion/ALGOL-W/singly-linked-list-element-insertion.alg

@@ -0,0 +1,14 @@
+    % inserts a new value after the specified element of a list               %
+    procedure insert( reference(ListI) value list
+                    ; integer          value newValue
+                    ) ;
+        next(list) := ListI( newValue, next(list) );
+
+    % declare a variable to hold a list                                       %
+    reference(ListI) head;
+
+    % create a list of integers                                               %
+    head := ListI( 1701, ListI( 9000, ListI( 42, ListI( 90210, null ) ) ) );
+
+    % insert a new value into the list                                        %
+    insert( next(head), 4077 );

Task/Singly-linked-list-Element-insertion/Modula-3/singly-linked-list-element-insertion.mod3

@@ -0,0 +1,26 @@
+MODULE SinglyLinkedList EXPORTS Main;
+
+TYPE
+  Link = REF LinkRcd;
+  LinkRcd = RECORD
+    Next: Link;
+    Data: INTEGER
+  END;
+
+  PROCEDURE InsertAppend(anchor, next: Link) =
+  BEGIN
+    IF anchor # NIL AND next # NIL THEN
+      next.Next := anchor.Next;
+      anchor.Next := next
+    END
+  END InsertAppend;
+
+VAR
+  a: Link := NEW(Link, Next := NIL, Data := 1);
+  b: Link := NEW(Link, Next := NIL, Data := 2);
+  c: Link := NEW(Link, Next := NIL, Data := 3);
+
+BEGIN
+  InsertAppend(a, b);
+  InsertAppend(a, c)
+END SinglyLinkedList.