challenge-289/arne-sommer/raku/third-maximum


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

#! /usr/bin/env raku

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

my @uniquely-sorted = @ints.sort.reverse.squish;

say ": Uniquely sorted: @uniquely-sorted[]" if $verbose;

say @uniquely-sorted.elems >= 3 ?? @uniquely-sorted[2] !! @uniquely-sorted[0];