Anonymous user
Singly-linked list/Element insertion: Difference between revisions
Singly-linked list/Element insertion (view source)
Revision as of 05:22, 16 July 2011
, 12 years ago→{{header|Perl}}: add Perl 6
(added Icon/Unicon examples) |
(→{{header|Perl}}: add Perl 6) |
||
Line 687:
# 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}}==
<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|PicoLisp}}==
|