Didn't like that I had to reassemble the Coins list. Took advantage of parametric temp variables (See Coins variable)

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]=Coins) ->
	find_variations(Amount, Rest) + find_variations( (Amount - Coin),  Coins).

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