<div dir="ltr">It is not strictly more general because it cannot handle empty sequences.<br></div><div class="gmail_extra"><br><div class="gmail_quote">2016-04-13 10:47 GMT+02:00 Henning Thielemann <span dir="ltr"><<a href="mailto:lemming@henning-thielemann.de" target="_blank">lemming@henning-thielemann.de</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span class=""><br>
On Wed, 13 Apr 2016, David Feuer wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
-1. I think these are good functions, but I don't think base is the place for them. They just don't seem "fundamental"<br>
enough. That said, they can be optimized for list fusion based on this implementation, and even use build to fuse the<br>
other way. No zipWith implementation will do this.<br>
<br>
zipWithAdj f xs = foldr go (`seq` []) xs Nothing where<br>
  go x r Nothing = r (Just x)<br>
  go x r (Just prev) = f prev x : r (Just x)<br>
</blockquote>
<br>
<br></span>
Btw. I have also this more general variant:<br>
<br>
mapAdjacent :: (Traversable f) => (a -> a -> b) -> NonEmpty f a -> f b<br>
mapAdjacent f (NonEmpty x xs) =<br>
   snd $ Trav.mapAccumL (\a0 a1 -> (a1, f a0 a1)) x xs<br>
<br>
<br>
Maybe this is also better for fusion?<br>
<br>
<br>
<a href="http://hackage.haskell.org/package/non-empty-0.2.1/docs/Data-NonEmpty.html#v:mapAdjacent" rel="noreferrer" target="_blank">http://hackage.haskell.org/package/non-empty-0.2.1/docs/Data-NonEmpty.html#v:mapAdjacent</a><br>_______________________________________________<br>
Libraries mailing list<br>
<a href="mailto:Libraries@haskell.org">Libraries@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/libraries</a><br>
<br></blockquote></div><br></div>