gistfile1.txt

sub longest_increasing_subsequence(@d) {
    my @l = [[].item];
    for ^@d -> $i {
	@l.push: [ max(:by(*.elems), grep { .[*-1] < @d[$i] }, @l[0..$i]).list, @d[$i] ].item;
    }
    return max :by(*.elems), @l;
}

say .perl given longest_increasing_subsequence <0 8 4 12 2 10 6 14 1 9 5 13 3 11 7 15>».Int;