challenge-327/arne-sommer/raku/missing-integers


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#! /usr/bin/env raku

unit sub MAIN (*@ints where @ints.elems > 0 && all(@ints) ~~ Int,
               :v(:$verbose));

my $max = @ints.elems;
my $set = @ints>>.Int.grep( 0 < * <= $max).Set;

if $verbose
{
  say ": Range: 1 .. $max";
  say ": Matches: { $set.keys.sort.join(", ") }";
}

my @missing = (1..$max).grep({ ! so $set{$_} });

say "({ @missing.join(", ") })";