Rosetta Code

Singly-linked list/Element insertion: Difference between revisions

Page Discussion

Singly-linked list/Element insertion (view source)

Revision as of 12:25, 6 August 2018

303 bytes removed ,  5 years ago
→‎{{header|Perl 6}}
m (improved internal links)
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>
my @list = <a b>;
=={{header|Perl 6}}==
say @list.splice(1,0,'c');
{{broken|Perl 6}}
say @list;
<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}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/28071"