[Haskell-cafe] Re: Longest increasing subsequence

2008-04-11 Thread ChrisK
It is late, but I was not sleepy enough, so here is my first translation of the algorithm to a functional approach... {- Quote wikipedia: http://en.wikipedia.org/wiki/Longest_increasing_subsequence L = 0 M[0] = 0 for i = 1, 2, ... n: binary search for the largest j ≤ L such that

[Haskell-cafe] Re: Longest increasing subsequence

2008-04-11 Thread ChrisK
My late night suggestions were nearly correct. I have actually written the code now. Once keeping track of indices, and a second time without them: {-# LANGUAGE BangPatterns #-} -- By Chris Kuklewicz, copyright 2008, BSD3 license -- Longest increasing subsequence -- (see