14 Feb
2005
14 Feb
'05
10:10 p.m.
On Monday 14 February 2005 17:08, Thomas Jäger wrote:
s' = flip flip (span ((0 ==) . fst) . zip [0..] . repeat) . ((.) .) . (id .) . (uncurry .) . flip ((.) . flip (.) . (. (snd . head))) . (. (snd . head))
This one is a little bit shorter and somewhat more 'elementary': s = (.) (flip (.) (head . uncurry zip . splitAt 1 . replicate 2) . uncurry) . (flip (.) (flip (.)) . flip (.)) The really hard part was to find a nice & short point-less version of \x -> (x,x) i.e. head . uncurry zip . splitAt 1 . replicate 2 This stuff is really crazy =8-))) Ben