[erlang-patches] Add lists:init/1 - got tired of implementing it

[Daniel Luna]

lists_first can easily be implemented by using dropwhile and hd. Which is
how I would use it if I would ever need it in a project.
On Apr 25, 2013 12:05 PM, "Anton Fedorov" <datacompboy@REDACTED> wrote:

> Hmm... if add new functions into lists, think about this one too:
>
> %% --------------------------------------------
> %% @spec lists_first(Pred,List) -> {Element, List}
> %%
> %% @doc Pick first element from List, for which Pred return true.
> %% @end ---------------------------------------
> lists_first(_Pred,[]) ->
>     undefined;
> lists_first(Pred,[Element|Rest]) ->
>     case Pred(Element) of
>         true -> Element;
>         _ -> lists_first(Pred, Rest)
>     end.
>
> %% --------------------------------------------
> %% @spec lists_nth(Pred,N,List) -> {Element, List}
> %%
> %% @doc Pick Nth element from List, for which Pred return true.
> %% @end ---------------------------------------
> lists_nth(_Pred,_N,[]) ->
>     undefined;
> lists_nth(Pred,N,[Element|Rest]) ->
>     case Pred(Element) of
>         true -> case N of
>                     0 -> Element;
>                     _ -> lists_nth(Pred, N-1, Rest)
>         end;
>         _ -> lists_nth(Pred, N, Rest)
>     end.
>
> also have tired of copying in several projects.
>
> В письме от Чтв, 25 Апр 2013, 22:54 Fred Hebert пишет:
> > Sounds to me like it would have been better implemented as something
> like:
> >
> > init([_]) -> [];
> > init([H|T]) -> [H|init(T)].
> >
> > As this would avoid re-building the list twice, once on each reversal.
> >
> > Regards,
> > Fred.
> >
> >
> > On Thu, Apr 25, 2013 at 11:12 AM, Hans Svensson <hanssv@REDACTED>
> wrote:
> >
> >> Hi,
> >>
> >> Yesterday I implemented, for the umpteenth time, the init-function. (I
> >> guess being taught Haskell at one point could be blamed partly for the
> >> coding style requiring this function...) It is a trivial function that I
> >> think should be part of the standard lists module. This patch adds the
> >> function, tests in lists_SUITE, and documentation of the function.
> >>
> >> The implementation is trivial: reverse(tl(reverse(List))).
> >>
> >> If I've missed some religious reason for not having this function feel
> >> free to drop the patch ;-)
> >>
> >> Cheers,
> >> Hans
> >>
> >> git fetch
> >> git://github.com/hanssv/otp.**git<http://github.com/hanssv/otp.git
> >add_init_to_lists
> >>
> >>
> https://github.com/hanssv/otp/**compare/erlang:maint...add_**init_to_lists
> <https://github.com/hanssv/otp/compare/erlang:maint...add_init_to_lists>
> >> https://github.com/hanssv/otp/**compare/erlang:maint...add_**
> >> init_to_lists.patch<
> https://github.com/hanssv/otp/compare/erlang:maint...add_init_to_lists.patch
> >
> >> ______________________________**_________________
> >> erlang-patches mailing list
> >> erlang-patches@REDACTED
> >> http://erlang.org/mailman/**listinfo/erlang-patches<
> http://erlang.org/mailman/listinfo/erlang-patches>
> >>
> > _______________________________________________
> > erlang-patches mailing list
> > erlang-patches@REDACTED
> > http://erlang.org/mailman/listinfo/erlang-patches
> >
>
>
> --
> Regards,
> Anton Fedorov
> Call2ru service
> E-Mail: datacompboy@REDACTED
> Jabber: datacompboy@REDACTED
> Skype: datacompboy
> ICQ: 272-35-262
> Mobile: +7-913-925-7974 [SMS 24h, Call 05:00-19:00 MSKT (GMT+3)]
>
> _______________________________________________
> erlang-patches mailing list
> erlang-patches@REDACTED
> http://erlang.org/mailman/listinfo/erlang-patches
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://erlang.org/pipermail/erlang-patches/attachments/20130425/29a2dc7a/attachment.htm>