Project Euler 63: Powerful digit counts

~ projekteuler

The 5-digit number, 16807=7^5, is also a fifth power. Similarly, the 9-digit number, 134217728=8^9, is a ninth power.

How many n-digit positive integers exist which are also an nth power?

Lösningen på detta problem är ganska enkel eftersom det inte kommer finnas lösningar med för stora tal. Problemet löses igenom att generera alla tänkbara alternativ och testa dem. 

problem_63() ->
    Start = os:timestamp(),
    Powers = [pow(X, Y) || X - lists:seq(1, 10), Y - lists:seq(0, 100), powlength(X, Y)],
    Resultat = length(Powers),
    io:format("Svaret är ~p och tog ~f sekunder att berakna~n", [Resultat, timer:now_diff(os:timestamp(), Start) / 1000000]).

powlength(X, Y) ->
    Power = pow(X, Y),
    Listified = integer_to_list(Power),
    length(Listified) == Y.
	    
pow(_, 0) -> 1;
pow(X, Y) -> X * pow(X, Y-1).