diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-08 19:21:06 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-07-08 19:21:06 +0100 |
| commit | 4053fbd834d76d84c8e6112009c0c8ad6dd3190d (patch) | |
| tree | 1a1e518b999acd8ed61e9db4117a35368fcf550b /challenge-068/mohammad-anwar | |
| parent | be97b043d3b3b5d82c605308593ed709d47aac8d (diff) | |
| download | perlweeklychallenge-club-4053fbd834d76d84c8e6112009c0c8ad6dd3190d.tar.gz perlweeklychallenge-club-4053fbd834d76d84c8e6112009c0c8ad6dd3190d.tar.bz2 perlweeklychallenge-club-4053fbd834d76d84c8e6112009c0c8ad6dd3190d.zip | |
- Further improvement.
Diffstat (limited to 'challenge-068/mohammad-anwar')
| -rw-r--r-- | challenge-068/mohammad-anwar/raku/ch-2.raku | 2 | ||||
| -rw-r--r-- | challenge-068/mohammad-anwar/raku/ch-2a.raku | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-068/mohammad-anwar/raku/ch-2.raku b/challenge-068/mohammad-anwar/raku/ch-2.raku index 010e00fa95..2abdf989b1 100644 --- a/challenge-068/mohammad-anwar/raku/ch-2.raku +++ b/challenge-068/mohammad-anwar/raku/ch-2.raku @@ -50,7 +50,7 @@ sub reorder-list(Str $linked-list is copy) { for $min .. $max-1 { my $last = @link.pop; @link.splice($i, 0, $last); - @link.tail.c = Node; + @link.tail.c = Nil; @link[$i - 1].c = $last; @link[$i].c = @link[$i + 1]; $i += 2; diff --git a/challenge-068/mohammad-anwar/raku/ch-2a.raku b/challenge-068/mohammad-anwar/raku/ch-2a.raku index 52ee6a7daa..eeff91f53a 100644 --- a/challenge-068/mohammad-anwar/raku/ch-2a.raku +++ b/challenge-068/mohammad-anwar/raku/ch-2a.raku @@ -60,7 +60,7 @@ sub reorder-list(Str $linked-list is copy) { for $min .. $max-1 { my $last = @link.pop; @link.splice($i, 0, $last); - @link.tail.c = Node; + @link.tail.c = Nil; @link[$i - 1].c = $last; @link[$i].c = @link[$i + 1]; $i += 2; |