diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-05-09 14:40:15 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-05-09 14:40:15 +0100 |
| commit | c193190e04829807edb9d1f2dec7be9c9a554b80 (patch) | |
| tree | 4d1e5767eca4857251b197ad695ca9787f0d63eb /challenge-059 | |
| parent | f3c10789a61d1d792d2834dc1deb1d784cd68790 (diff) | |
| parent | f8ca01cc51874a9cf4b506731679abdc4a5f0c14 (diff) | |
| download | perlweeklychallenge-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.pl | 25 |
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 |
