Re: [Haskell-cafe] hstats median algorithm

3 Sep 2012


      On Mon, Sep 3, 2012 at 11:18 AM, Felipe Almeida Lessa
 wrote:
...
Ditto for oldLen here.  Also, you can simplify this lambda a lot:
import Control.Applicative ((<$>))
\(oldLen, oldVal) ->
    let newLen = oldLen + 1
        newVal = (number:) <$> oldVal
    in newLen `seq` newVal `seq` (newLen, newVal)
Or, using BangPatterns,

  \(oldLen, oldVal) ->
    let !newLen = oldLen + 1
        !newVal = (number:) <$> oldVal
    in (newLen, newVal)

Cheers,

-- 
Felipe.