factors =: verb : '*/__ q:y'
distinctFactors =: verb : '#~.;factors each y'

n =: 2
count =: n*n

solve =: verb define
	n =. y
	count =. n*n
	i =. 1
	result =. 0
	while. result = 0 do.
		if. count = distinctFactors i+i.n do.
			result =. i
		end.
		i =. i + 1
	end.
	result
)

problem47 =: solve 4