Leaders
12345678910
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];
Raku
INFO