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

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

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.