Issue with the random tests in R.

Test Failed
	find_longest(arr) not equal to sol(arr).
	1/1 mismatches
	[1] 1e+17 - 1.14e+16 == 8.86e+16

Despite 1e+17 having one more digit it is expecting 1.14e+16.

I believe you could also use a switch statement instead of use else if, else if, else if... (etc)

This is certainly the most challenging kata I've completed so far; it was a great challenge and I really enjoyed trying to figure it out.