Leaders

multi leaders([]) { Empty }
multi leaders([ $first, *@rest where $first > *.all ]) {
    [ $first, |leaders @rest ]
}
multi leaders([ $first, *@rest ]) {
    leaders @rest
}

say leaders [9, 10, 7, 5, 6, 1];
say leaders [3, 4, 5];