pichi

%% Power function (X ^ Y) and root function (X ^ (1/Y)) for
%% integers in Erlang
%% by Kenji Rikitake <kenji.rikitake@acm.org> 26-JAN-2010
%% modified by Hynek Vychodil <vychodil.hynek@gmail.com> 2-FEB-2010
%% Distributed under MIT license at the end of the source code.

-module(bignum_root).

-export([power/2, root/2, sqrt/1]).

pichi

proplists_get_value(Key, List)->
  case lists:keyfind(Key,1,List) of
    {K,V} when K =:= Key ->
      V;
    _->
      proplists_get_value_(Key, List)
  end.
  
proplists_get_value_(_,[])->
  undefined;

pichi

%% Power function (X ^ Y) and root function (X ^ (1/Y)) for
%% integers in Erlang
%% by Kenji Rikitake <kenji.rikitake@acm.org> 26-JAN-2010
%% modified by Hynek Vychodil <vychodil.hynek@gmail.com> 2-FEB-2010
%% modified by Kenji Rikitake <kenji.rikitake@acm.org> 3-FEB-2010
%% modified by Hynek Vychodil <vychodil.hynek@gmail.com> 24-JUL-2016
%% Distributed under MIT license at the end of the source code.

-module(bignum_root).

pichi

-module(test).
-compile(export_all).
%% API

-compile({inline, [  insert/2
                   , merge/2
                  ]}).

insert(E, []) -> [E];
insert(E, [E2|_] = H) when E =< E2 -> [E, H];

pichi

-module(test).
-compile(export_all).
%% API

-compile({inline, [  insert/2
                   , merge/2
                  ]}).

insert(E, []) -> [E];
insert(E, [E2|_] = H) when E =< E2 -> [E, H];