Create problem477.R

I think initializing the sequence is correct, but something is still wrong with the score function wrt strategy.