Lerning Erlang 6

blow.erl

nevercalled() ->
  called.

infinite([]) ->
  ended;
infinite([X|T]) ->
  infinite([X|T]),
  nevercalled().

console1.erl

1> c(recursion).                               
{ok,recursion}
2> recursion:calculateFees(10, [5,6,7,8,9,2]).
{10,370}
3> recursion:calculateFees(10, [0.5,0.6,0.7,0.8,0.9,0.2]).
{10,37.0}

console2.erl

2> recursion:noguard([1,2,3]).
** exception error: no function clause matching recursion:noguard([])

infinite.erl

infinite([]) ->
  ended;
infinite([X|T]) ->
  infinite([X|T]).

no_eguard_clause.erl

noguard([X|T]) ->
  noguard(T).

recursion.erl

-module(recursion).
-export([calculateFees/2]).

calculateFees(Amount, Taxes) ->
  calculateFees(Amount, Taxes, 0).

calculateFees(Amount, [], Accum) ->
  {Amount, Accum};
calculateFees(Amount, [X|T], Accum) ->
  calculateFees(Amount, T, ((Amount * X) + Accum)).