Longest increasing subsequence: Difference between revisions
→Patience sorting: make it one function
(→{{header|Perl}}: added perl patience sorting) |
(→Patience sorting: make it one function) |
||
Line 453:
===<!--Perl 6-->Patience sorting===
<lang Perl 6>sub
my @S = [@deck.shift() => Mu].item;
for @deck -> $card {
Line 462:
}
}
reverse map *.key, (
@S[*-1][*-1], *.value ...^ !*.defined
Line 471 ⟶ 467:
}
say lis
say lis
{{out}}
<pre>2 4 5
| |||