aboutsummaryrefslogtreecommitdiff
path: root/challenge-059
diff options
context:
space:
mode:
authorMohammad S Anwar <Mohammad.Anwar@yahoo.com>2020-05-09 14:40:15 +0100
committerGitHub <noreply@github.com>2020-05-09 14:40:15 +0100
commitc193190e04829807edb9d1f2dec7be9c9a554b80 (patch)
tree4d1e5767eca4857251b197ad695ca9787f0d63eb /challenge-059
parentf3c10789a61d1d792d2834dc1deb1d784cd68790 (diff)
parentf8ca01cc51874a9cf4b506731679abdc4a5f0c14 (diff)
downloadperlweeklychallenge-club-c193190e04829807edb9d1f2dec7be9c9a554b80.tar.gz
perlweeklychallenge-club-c193190e04829807edb9d1f2dec7be9c9a554b80.tar.bz2
perlweeklychallenge-club-c193190e04829807edb9d1f2dec7be9c9a554b80.zip
Merge pull request #1689 from Doomtrain14/master
Deleted unnecessary variable
Diffstat (limited to 'challenge-059')
-rw-r--r--challenge-059/yet-ebreo/perl/ch-1.pl25
1 files changed, 21 insertions, 4 deletions
diff --git a/challenge-059/yet-ebreo/perl/ch-1.pl b/challenge-059/yet-ebreo/perl/ch-1.pl
index 37a061d69f..1a17da0134 100644
--- a/challenge-059/yet-ebreo/perl/ch-1.pl
+++ b/challenge-059/yet-ebreo/perl/ch-1.pl
@@ -26,7 +26,7 @@ while ($link->iter) {
$dnlink->add($i);
}
print $i;
- print " -> " if $link->next
+ print " → " if $link->next
}
#Join dnlink and uplink
@@ -38,7 +38,7 @@ say "\n\nPartitioned List:";
while ($dnlink->iter) {
my $i = $dnlink->value;
print $i;
- print " -> " if $dnlink->next
+ print " → " if $dnlink->next
}
@@ -78,7 +78,7 @@ sub next {
return $iter_item->{next};
}
sub iter {
- my ($self, $join_mode) = @_;
+ my $self = shift;
if (!$iter_item) {
$iter_item = $self;
@@ -97,4 +97,21 @@ sub join {
$self->add($i)
}
}
-1; \ No newline at end of file
+1;
+
+=begin
+Original List:
+1 → 4 → 3 → 2 → 5 → 2
+
+Partitioned List:
+1 → 2 → 2 → 4 → 3 → 5
+
+The setting below was added in VS code internal terminal (PowerShell)
+to properly show the arrow ( → ) character:
+
+ "terminal.integrated.shellArgs.windows": [
+ "-NoExit",
+ "/c",
+ "chcp.com 65001"
+ ],
+=cut \ No newline at end of file