@@ -3,8 +3,9 @@ %%% license: BSD -module(nglists). --export([count/2, deepmap/2, drop/2, find_first/2, find_first/3, init/1, pos/2, - transpose/1, uniq/1]). +-export([count/2, deepmap/2, drop/2, + find_first/2, find_first/3, find_last/2, find_last/3, + init/1, pos/2, transpose/1, uniq/1]). -import(lists, [all/2, append/1, duplicate/2, flatten/1, foldl/3, foreach/2, map/2, nth/2, nthtail/2, reverse/1, seq/2, sum/1, zip/2, @@ -49,6 +50,17 @@ find_first(_Pred, IfNone, []) -> IfNone(). +%% @doc Like find_first. + +find_last(Pred, L) -> + find_last(Pred, fun() -> false end, L). + +%% @doc Like find_first. + +find_last(Pred, IfNone, L) -> + find_first(Pred, IfNone, reverse(L)). + + %% @doc Drop the last element of a list. init(L) -> reverse(tl(reverse(L))). nglists.erl edface742c5a8a2e41bb41b60e61723e5391e5e7 Hasan Veldstra hasan.veldstra@gmail.com http://github.com/hassy/ngerl/commit/675b7328ad09b7de82422105c440f23b58d71d6f 675b7328ad09b7de82422105c440f23b58d71d6f 2009-04-28T05:31:37-07:00 2009-04-28T05:31:37-07:00 add find_last. a5f9e07358b2bc5727e4c560df97d6d874261158 Hasan Veldstra hasan.veldstra@gmail.com