euler 45 in erlang