scrambler.raku

# Usage: echo words | raku scrambler.raku

sub scramble-word(Str $word --> Str) {
    if $word.chars <= 3 {
        return $word;
    }

    my @letters = $word.comb;

    my $first-letter = @letters[0];
    my $last-letter = @letters[*-1];
    my @middle-letters = @letters[1..*-2];
    my @scrambled-word = @middle-letters.pick(@middle-letters);

    @scrambled-word.prepend: $first-letter;
    @scrambled-word.push: $last-letter;

    return @scrambled-word.join;
}

slurp()
    .words
    .map(-> $word { scramble-word $word })
    .join(" ")
    .print;

[*;*] flattens the list. It can be replaced by .flat. But why does it work that way?