Podcast #128: We chat with Kent C Dodds about why he loves React and discuss what life was like in the dark days before Git. Listen now.
2 deleted 7 characters in body
source | link

R - 6154

sum(sapplynchar(gsub("[^o]","",english::english(1:scan())),nchar))

Unlike the OP, I get 41 when the input is 101for n=101. I hope someone can confirm.

R - 61

sum(sapply(gsub("[^o]","",english::english(1:scan())),nchar))

Unlike the OP, I get 41 when the input is 101. I hope someone can confirm.

R - 54

sum(nchar(gsub("[^o]","",english::english(1:scan()))))

I get 41 for n=101. I hope someone can confirm.

1
source | link

R - 61

sum(sapply(gsub("[^o]","",english::english(1:scan())),nchar))

Unlike the OP, I get 41 when the input is 101. I hope someone can confirm.