KellyO R code for attempt at Euler 8

Very nice! I love ifelse.