Euler Project Problem #030

euler30.rb

# Solution to Project Euler's thirtieth problem
# http://projecteuler.net/index.php?section=problems&id=30
# Find the sum of all the numbers that can be written as the sum of fifth powers of their digits.
def seperate_digits(numbers) 
	array = []
	numbers.each_with_index do |n, i|
		array[i] = []
		until n < 10 do
			array[i].unshift (n % 10)
			n = n / 10
		end
		array[i].unshift n
	end
	return array
end
def sum_digits_as_fifths(array_of_arrays)
	fifths = (0..9).to_a
	fifths.each_with_index {|n, i| fifths[i] = n**5 }
	array_of_sums = []
	array_of_arrays.each do |array|
		sum = 0
		array.each do |i|
			sum = fifths[i] + sum
		end
		array_of_sums.push sum
	end
	return array_of_sums
end
def compare_array_to_array(first, second)
	sum = -1 # Set to -1 to negate the false positive on 1.
	first.each_with_index do |s, i|
		if s == second[i] then
			p "#{s} is #{second[i]}"
			sum += s 
		end
	end
	return sum
end
range = (1..199999).to_a
digits = seperate_digits(range)
array_of_sums = sum_digits_as_fifths(digits)
sum = compare_array_to_array(array_of_sums, range)
p sum