diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-19 05:44:40 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-19 05:44:40 +0100 |
| commit | 1ade5d9e1ddca937d5fada43b6b1148b8fa4b52b (patch) | |
| tree | ae07019b8be7efe647464477bc22e3b135de1abf | |
| parent | e0eedc0b969d5c2a40ce01edeb6839c1fe540b91 (diff) | |
| download | perlweeklychallenge-club-1ade5d9e1ddca937d5fada43b6b1148b8fa4b52b.tar.gz perlweeklychallenge-club-1ade5d9e1ddca937d5fada43b6b1148b8fa4b52b.tar.bz2 perlweeklychallenge-club-1ade5d9e1ddca937d5fada43b6b1148b8fa4b52b.zip | |
- Tidied up Raku solutions.
| -rw-r--r-- | challenge-061/mohammad-anwar/raku/ch-2.p6 | 2 | ||||
| -rw-r--r-- | challenge-061/mohammad-anwar/raku/ch-2a.p6 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-061/mohammad-anwar/raku/ch-2.p6 b/challenge-061/mohammad-anwar/raku/ch-2.p6 index f42cbbabc5..56b261e738 100644 --- a/challenge-061/mohammad-anwar/raku/ch-2.p6 +++ b/challenge-061/mohammad-anwar/raku/ch-2.p6 @@ -7,7 +7,7 @@ sub MAIN(Str $S = "25525511135") { say sprintf("%s = %s", $S, @V.join(", ")); } -sub ipv4-partition($ipv4_string) { +sub ipv4-partition(Str $ipv4_string) { my @valid = Empty; my $ipv4 = ''; diff --git a/challenge-061/mohammad-anwar/raku/ch-2a.p6 b/challenge-061/mohammad-anwar/raku/ch-2a.p6 index a3fde1b5be..9c08435ba7 100644 --- a/challenge-061/mohammad-anwar/raku/ch-2a.p6 +++ b/challenge-061/mohammad-anwar/raku/ch-2a.p6 @@ -8,7 +8,7 @@ is @V.join(", "), "255.255.11.135, 255.255.111.35"; done-testing; -sub ipv4-partition($ipv4_string) { +sub ipv4-partition(Str $ipv4_string) { my @valid = Empty; my $ipv4 = ''; |