The screencast is better.
Here's an alternative #rstats solution to the problem that's much less readable but fits in a tweet:
mean(replicate(1e5, all(between(cumsum(rbinom(10, 1, rep(c(.5, .4), 5)) * rep(c(-1, 1), 5)), -2, 1))))
only non-base function is dplyr's between()https://twitter.com/drob/status/1072946851291299842 …
In this 20 minute bonus screencast, I answer a probability puzzle from last Friday's @FiveThirtyEight "Riddler" column using Monte Carlo simulation in #rstats 
It's hard to solve puzzles under pressure 
https://www.youtube.com/watch?v=TDzd73z8thU … @ollie pic.twitter.com/8Xn9L0nUz2
It's hard to solve puzzles under pressure
https://www.youtube.com/watch?v=TDzd73z8thU … -
-
-
I agree!
ಸಂವಾದದ ಮುಕ್ತಾಯ
ಹೊಸ ಸಂವಾದ -
-
-
Great solution! Side comment: seems you were trying to stay with base functions but please pipe!!!!
ಧನ್ಯವಾದಗಳು. Twitter ಇದನ್ನು ನಿಮ್ಮ ಕಾಲರೇಖೆಯನ್ನು ಉತ್ತಮಗೊಳಿಸಲು ಬಳಸುತ್ತದೆ. ರದ್ದುಗೊಳಿಸುರದ್ದುಗೊಳಿಸು
-
ಲೋಡಿಂಗ್ ಸಮಯ ಸ್ವಲ್ಪ ತೆಗೆದುಕೊಳ್ಳುತ್ತಿರುವಂತೆನಿಸುತ್ತದೆ.
Twitter ಸಾಮರ್ಥ್ಯ ಮೀರಿರಬಹುದು ಅಥವಾ ಕ್ಷಣಿಕವಾದ ತೊಂದರೆಯನ್ನು ಅನುಭವಿಸುತ್ತಿರಬಹುದು. ಮತ್ತೆ ಪ್ರಯತ್ನಿಸಿ ಅಥವಾ ಹೆಚ್ಚಿನ ಮಾಹಿತಿಗೆ Twitter ಸ್ಥಿತಿಗೆ ಭೇಟಿ ನೀಡಿ.