path: root/challenge-050/stuart-little/raku/ch-2.p6

#!/usr/bin/env perl6
use v6;

sub nob(@a) {
    @a.grep({ $_ == @a.grep( * > $_ ) })
}

say nob(@*ARGS.map(*.Int));

# run as <script> <space-separated array entries>