Longest increasing subsequence: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→Dynamic programming: fix markup) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix markup) |
||
Line 1,436: | Line 1,436: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with|rakudo| |
{{works with|rakudo|2018.03}} |
||
===<!--Perl 6-->Dynamic programming=== |
===<!--Perl 6-->Dynamic programming=== |
||
Straight-forward implementation of the algorithm described in the video. |
Straight-forward implementation of the algorithm described in the video. |
||
Line 1,461: | Line 1,461: | ||
===<!--Perl 6-->Patience sorting=== |
===<!--Perl 6-->Patience sorting=== |
||
<lang |
<lang perl6>sub lis(@deck is copy) { |
||
my @S = [@deck.shift() => Nil].item; |
my @S = [@deck.shift() => Nil].item; |
||
for @deck -> $card { |
for @deck -> $card { |