Singly-linked list/Element insertion: Difference between revisions

=={{header|Phix}}==

See also [[Singly-linked_list/Traversal#Phix|Singly-linked_list/Traversal]].

<lang Phix>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</lang>

{{out}}

<pre>

{{2},{3,"ONE"},{4,"TWO"},{1,"THREE"}}

</pre>