Singly-linked list/Element insertion: Difference between revisions
Singly-linked list/Element insertion (view source)
Revision as of 21:40, 8 February 2017
, 7 years ago→{{header|Phix}}
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
|||
Line 1,074:
$letters.&insert-after('A', 'B');</lang>
=={{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>
=={{header|PicoLisp}}==
| |||