aboutsummaryrefslogtreecommitdiff
path: root/challenge-083/daniel-mita/raku/ch-1.raku
blob: 80aa79b22197548d68585204eccbd5155883151b (plain)
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;
  }
}