challenge-083/daniel-mita/raku/ch-1.raku


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/env raku

sub MAIN ( Str:D $string --> Nil ) {
  given $string.comb(/\S+/) {
    when * < 3 {
      say 'Fewer than 3 words given.';
      exit 1;
    }

    .[1..*-2].join.chars.say;
  }
}