diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-30 13:09:20 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-08-30 13:09:20 +0100 |
| commit | 1c100d8eefffa085ab249d24ae3928cd393ec4c5 (patch) | |
| tree | af019b85b1e9a440a92626883ceb580f0002d842 | |
| parent | e2363e0a7f4e837ea4ecc53c2d616f69fe618c34 (diff) | |
| download | perlweeklychallenge-club-1c100d8eefffa085ab249d24ae3928cd393ec4c5.tar.gz perlweeklychallenge-club-1c100d8eefffa085ab249d24ae3928cd393ec4c5.tar.bz2 perlweeklychallenge-club-1c100d8eefffa085ab249d24ae3928cd393ec4c5.zip | |
- Tidied up Raku solution.
| -rwxr-xr-x | challenge-075/mohammad-anwar/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-075/mohammad-anwar/raku/ch-2.raku b/challenge-075/mohammad-anwar/raku/ch-2.raku index a591c6e9f1..f8aed24d18 100755 --- a/challenge-075/mohammad-anwar/raku/ch-2.raku +++ b/challenge-075/mohammad-anwar/raku/ch-2.raku @@ -67,7 +67,7 @@ sub go-right(Int $i is copy, $list where .all ~~ Int) returns Int { return $j; } -sub chart($list where .all ~~ Int) { +sub chart($list where .all ~~ Int) returns Str { my $max = $list.max; my $chart = []; |