<div dir="ltr"><div>If you mean is there any f and z for which this can be done with only "foldr f z xs", I believe the answer is no. If you don't mind extra parts, though:</div><div><br></div><div>findAdjacent :: (Eq a) => [a] -> Maybe a</div><div>findAdjacent xs = foldr f Nothing $ zip xs ps</div><div>  where</div><div>    ps = zipWith (==) (tail xs) xs</div><div>    f (x,p) next = if p then Just x else next</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Mon, Feb 1, 2016 at 11:15 PM, Chul-Woong Yang <span dir="ltr"><<a href="mailto:cwyang@aranetworks.com" target="_blank">cwyang@aranetworks.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi, all.<br>
<br>
Can it be possible to do fold with short circuit and accumulator both?<br>
For example, can we find an element which is same value to adjacent one?<br>
<br>
findAdjacent [1,2..n, n, n+1, n+2.......] => n<br>
                         \__very long__/<br>
<br>
Though there can be many ways to do it, Can we do it with fold[r|l]?<br>
<br>
I'll be happy to receive any comments.<br>
<br>
Chul-Woong<br>
_______________________________________________<br>
Beginners mailing list<br>
<a href="mailto:Beginners@haskell.org">Beginners@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners</a><br>
</blockquote></div><br></div>