Packages

dec

0.7.0
0.10.2 0.10.1 0.10.0 0.7.4 0.7.3 0.7.2 0.7.1 0.7.0

DEC Decimal Arbitrary Precision

HexDocs

Current section

Files

Jump to
Readme
8 Versions
0 Dependencies
Dependants
Files
Activity
dec src dec.erl
Raw

src/dec.erl 

-module(dec).

-compile(export_all).

-include("money.hrl").

-export([start/2, stop/1, init/1]).



stop(_)      -> ok.

init([])     -> {ok, { {one_for_one, 5, 10}, []} }.

start(_, _)  -> supervisor:start_link({local, ?MODULE}, ?MODULE, []).



pow(X,0) -> X;

pow(X,Y) -> X * pow(X,Y-1).



'mul'({A,B},{C,D}) -> norm({A+C,B*D}).



'div'({A,N},{C,D}) -> norm({A+C+1,N*pow(10,A+C) div D}).



'norm'({0,B}) -> {0,B};

'norm'({A,B}) when B rem 10 == 0 -> 'norm'({A-1,B div 10});

'norm'(X) -> X.