Longest increasing subsequence: Difference between revisions
Content added Content deleted
(Added AppleScript.) |
|||
Line 1,514: | Line 1,514: | ||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
Although undocumented, Mathematica has the function LongestAscendingSequence which exactly does what the Task asks for: |
Although undocumented, Mathematica has the function LongestAscendingSequence which exactly does what the Task asks for: |
||
<lang Mathematica>LongestAscendingSequence/@{{3,2,6,4,5,1},{0,8,4,12,2,10,6,14,1,9,5,13,3,11,7,15}}</lang> |
<lang Mathematica>LongestAscendingSequence/@{{3,2,6,4,5,1},{0,8,4,12,2,10,6,14,1,9,5,13,3,11,7,15}}</lang> |