How to fix a game of roulette (functions, loops, and conditional statements)

Question

I am trying to play roulette, but it doesn\'t really work as intended.

red_fields <- c(32, 19, 21, 25, 34, 27, 36, 30, 23, 5, 16, 1, 14, 9, 18, 7, 12, 3)
black