KellyO R code for attempt at Euler 8

`ifelse` is good indeed, largely for its vectorization; in this particular application plain ol' `if` might actually be nicer.