Rosetta Code

Singly-linked list/Element insertion: Difference between revisions

Page Discussion

Singly-linked list/Element insertion (view source)

Revision as of 12:34, 6 August 2018

281 bytes removed ,  5 years ago
→‎{{header|Perl 6}}
(Undo revision 266907 by Cujincode (talk))
Line 1,132:
insert_after $list2->{next}, { data => 'A2a' }, { data => 'A2b' };</lang>
=={{header|Perl 6}}==
my @list = <a b>;
{{broken|Perl 6}}
say @list.splice(1,0,'c');
<lang perl6>my $letters = 'A' => 'C' => Mu;
say @list;
 
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/28073"