Anonymous user
Singly-linked list/Element insertion: Difference between revisions
Singly-linked list/Element insertion (view source)
Revision as of 12:33, 6 August 2018
, 5 years agoUndo revision 266907 by Cujincode (talk)
Line 1,131:
# append new nodes ('A2a', 'A2b') after the second element (which now is 'A2')
insert_after $list2->{next}, { data => 'A2a' }, { data => 'A2b' };</lang>
=={{header|Perl 6}}==
{{broken|Perl 6}}
<lang perl6>my $letters = 'A' => 'C' => Mu;
sub insert-after($list, $after, $new) {
loop (my $l = $list; $l; $l = $l.value) {
if $l.key eqv $after {
$l.value = $new => $l.value;
return;
}
}
die "Element $after not found";
}
$letters.&insert-after('A', 'B');</lang>
=={{header|Phix}}==
|