Re: [Haskell-cafe] Looking for pointfree version

On Thu, Feb 12, 2009 at 6:46 PM, Kim-Ee Yeoh wrote:

On the same note, does anyone have ideas for the following snippet? Tried the pointfree package but the output was useless.

pointwise op (x0,y0) (x1,y1) = (x0 `op` x1, y0 `op` y1)

$ pointfree '(\op (a, b) (c, d) -> (a `op` c, b `op` d))' (`ap` snd) . (. fst) . flip flip snd . ((flip . (ap .)) .) . flip flip fst . ((flip . ((.) .)) .) . (flip =<< (((.) . flip . (((.) . (,)) .)) .)) 'Useless' is a bit understated , IMO.