diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2020-06-01 16:15:04 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2020-06-01 16:15:04 +0200 |
| commit | 338f4ac1ee158bf35e7a1710e947199e005b1df7 (patch) | |
| tree | 09fd4d8d7aec26a4dd8323ab9d08595a2455c3ba | |
| parent | 5461fa45ca889894c57ef020e8c34ddee63e107d (diff) | |
| download | perlweeklychallenge-club-338f4ac1ee158bf35e7a1710e947199e005b1df7.tar.gz perlweeklychallenge-club-338f4ac1ee158bf35e7a1710e947199e005b1df7.tar.bz2 perlweeklychallenge-club-338f4ac1ee158bf35e7a1710e947199e005b1df7.zip | |
Added a constraint on parameter.
| -rw-r--r-- | challenge-063/luca-ferrari/raku/ch-2.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-063/luca-ferrari/raku/ch-2.p6 b/challenge-063/luca-ferrari/raku/ch-2.p6 index 5884bea277..e80cf66f58 100644 --- a/challenge-063/luca-ferrari/raku/ch-2.p6 +++ b/challenge-063/luca-ferrari/raku/ch-2.p6 @@ -18,7 +18,7 @@ # # Output: 7 -sub rotate( $string, $verbose = False ){ +sub rotate( $string where { $string.split( '', :skip-empty ).chars > 1 }, $verbose = False ){ my $step = 1; my @chars = $string.split( '', :skip-empty ); |