<p dir="ltr">Hi Matt,</p>
<p dir="ltr">this isn't exactly the same thing I think. My function replaces the first element in the list for which f returns (Just x) by x, and leaves the rest of the list untouched.</p>
<p dir="ltr">Paul</p>
<br><div class="gmail_quote"><div dir="ltr">On Fri, Apr 7, 2017, 20:53 Matt <<a href="mailto:parsonsmatt@gmail.com">parsonsmatt@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr" class="gmail_msg"><div class="gmail_msg">I think you're looking at the Monoid instance for First:</div><div class="gmail_msg"><br class="gmail_msg"></div>λ> import Data.Monoid<div class="gmail_msg">λ> let first f = getFirst . foldMap (First . f)</div><div class="gmail_msg">λ> first (\x -> guard (x > 2) *> pure x) [1..10]</div><div class="gmail_msg">Just 3</div><div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><br class="gmail_msg"></div></div><div class="gmail_extra gmail_msg"><br clear="all" class="gmail_msg"><div class="gmail_msg"><div class="m_5988909991607010538gmail_signature gmail_msg" data-smartmail="gmail_signature"><div dir="ltr" class="gmail_msg"><div class="gmail_msg">Matt Parsons</div></div></div></div>
<br class="gmail_msg"><div class="gmail_quote gmail_msg"></div></div><div class="gmail_extra gmail_msg"><div class="gmail_quote gmail_msg">On Fri, Apr 7, 2017 at 2:57 AM, Paul Brauner <span dir="ltr" class="gmail_msg"><<a href="mailto:polux2001@gmail.com" class="gmail_msg" target="_blank">polux2001@gmail.com</a>></span> wrote:<br class="gmail_msg"></div></div><div class="gmail_extra gmail_msg"><div class="gmail_quote gmail_msg"><blockquote class="gmail_quote gmail_msg" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr" class="gmail_msg">Oops, there's a free variable in there, let me fix it:<div class="gmail_msg"><br class="gmail_msg"></div><div class="gmail_msg"><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg" style="color:rgb(33,33,33)">first f [] = Nothing</div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg" style="color:rgb(33,33,33)">first f (x:xs) = fmap (:xs) (f x) <|> fmap (x:) (first f xs)</div></div><span class="m_5988909991607010538HOEnZb gmail_msg"><font color="#888888" class="gmail_msg"><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg" style="color:rgb(33,33,33)"><br class="gmail_msg"></div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg" style="color:rgb(33,33,33)">Paul</div></font></span></div><div class="m_5988909991607010538HOEnZb gmail_msg"><div class="m_5988909991607010538h5 gmail_msg"><br class="gmail_msg"><div class="gmail_quote gmail_msg"><div dir="ltr" class="gmail_msg">On Fri, Apr 7, 2017 at 10:42 AM Paul Brauner <<a href="mailto:polux2001@gmail.com" class="gmail_msg" target="_blank">polux2001@gmail.com</a>> wrote:<br class="gmail_msg"></div><blockquote class="gmail_quote gmail_msg" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr" class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg">Hello Haskell Cafe,<div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"><br class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"></div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg">I had to write the following function and I was wondering if it (or its generalization to Alternative or Traversable) was exposed by some library under a different name:</div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"><br class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"></div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg">first [] = Nothing</div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg">first (t:ts) = fmap (:ts) (s t) <|> fmap (t:) (first ts)</div></div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"><br class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"></div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg">Somehow it is to "traverse" as "any" is to "all".</div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"><br class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg"></div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg">Cheers,</div><div class="m_5988909991607010538m_3166737832714793295gmail_msg gmail_msg">Paul</div></div></blockquote></div>
</div></div><br class="gmail_msg"></blockquote></div></div><div class="gmail_extra gmail_msg"><div class="gmail_quote gmail_msg"><blockquote class="gmail_quote gmail_msg" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">_______________________________________________<br class="gmail_msg">
Haskell-Cafe mailing list<br class="gmail_msg">
To (un)subscribe, modify options or view archives go to:<br class="gmail_msg">
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe" rel="noreferrer" class="gmail_msg" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/haskell-cafe</a><br class="gmail_msg">
Only members subscribed via the mailman list are allowed to post.<br class="gmail_msg"></blockquote></div><br class="gmail_msg"></div>
</blockquote></div>