aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

all tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Singly-linked-list-Element-insertion/Perl/singly-linked-list-element-insertion-1.pl Normal file
View file

@ -0,0 +1,2 @@
my @l = ($A, $B);
push @l, $C, splice @l, 1;

19
Task/Singly-linked-list-Element-insertion/Perl/singly-linked-list-element-insertion-2.pl Normal file
View file

@ -0,0 +1,19 @@
sub insert_after {
# first argument: node to insert after
# second argument: node to insert
$_[1]{next} = $_[0]{next};
$_[0]{next} = $_[1];
}
my %B = (
data => 3,
next => undef, # not a circular list
);
my %A = (
data => 1,
next => \%B,
);
my %C = (
data => 2,
);
insert_after \%A, \%C;

1
Task/Singly-linked-list-Element-insertion/Perl/singly-linked-list-element-insertion-3.pl Normal file
View file

@ -0,0 +1 @@
insert_after \%A, { data => 2 };

11
Task/Singly-linked-list-Element-insertion/Perl/singly-linked-list-element-insertion-4.pl Normal file
View file

@ -0,0 +1,11 @@
sub insert_after {
my $node = $_[0];
my $next = $node->{next};
shift;
while (defined $_[0]) {
$node->{next} = $_[0];
$node = $node->{next};
shift;
}
$node->{next} = $next;
}

2
Task/Singly-linked-list-Element-insertion/Perl/singly-linked-list-element-insertion-5.pl Normal file
View file

@ -0,0 +1,2 @@
my %list = ( data => 'A' );
insert_after \%list, { data => 'B' }, { data => 'C' };

10
Task/Singly-linked-list-Element-insertion/Perl/singly-linked-list-element-insertion-6.pl Normal file
View file

@ -0,0 +1,10 @@
my $list2;
# create a new list ('A'. 'B', 'C') and store it in $list2
insert_after $list2 = { data => 'A' }, { data => 'B' }, { data => 'C' };
# append two new nodes ('D', 'E') after the first element
insert_after $list2, { data => 'A2' }, { data => 'A3' };
# append new nodes ('A2a', 'A2b') after the second element (which now is 'A2')
insert_after $list2->{next}, { data => 'A2a' }, { data => 'A2b' };