diff options
| -rw-r--r-- | challenge-348/ash/raku/ch-1.raku | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/challenge-348/ash/raku/ch-1.raku b/challenge-348/ash/raku/ch-1.raku new file mode 100644 index 0000000000..df355ded88 --- /dev/null +++ b/challenge-348/ash/raku/ch-1.raku @@ -0,0 +1,22 @@ +# Task 1 of The Weekly Challenge 348 +# https://theweeklychallenge.org/blog/perl-weekly-challenge-348/#TASK1 + +say can-split 'textbook'; # False +say can-split 'book'; # True +say can-split 'AbCdEfGh'; # True +say can-split 'rhythmmyth'; # False +say can-split 'UmpireeAudio'; # False + +say can-split 'odd'; # False + +sub can-split($str) { + return False if $str.chars % 2; + + my $len = ($str.chars / 2).Int; # why: https://github.com/rakudo/rakudo/issues/6030 + my ($a, $b) = $str.comb($len); + + $a ~~ s:g:i/<-[aeiou]>+//; + $b ~~ s:g:i/<-[aeiou]>+//; + + return $a.chars == $b.chars != 0; +} |