problem50.ijs


1
2
3
4
5
6
7
8
9
10
11
12

solve =: monad define
	ns =. p:i._1 p: y
	for_length. |.I.y>+/\ns do.
		sums =. length+/\ns
		vals =. sums#~(y>sums)*.1 p: sums
		if. 0<#vals do.
			return. >./vals
		end.
	end.
)

problem50 =: solve 1e6