gistfile1.hrl

-module(change2).
-export([find_variations/2]).
-export([count_change/1]).

find_variations(0, _) -> 1;		% No amount given.
find_variations(_, []) -> 0;	% No coins given.
find_variations(Amount, _) 		% Amount is impossible.
	when Amount < 0 -> 0;

find_variations(Amount, [Coin|Rest]) ->
	find_variations(Amount, Rest) + find_variations( (Amount - Coin),  [Coin] ++ Rest).

count_change(Amount) -> 
		find_variations(Amount, [50, 25, 10, 5, 1]).