diff --git a/fizzbuzz.Rmd b/fizzbuzz.Rmd index 58e4ceb..7e2090d 100644 --- a/fizzbuzz.Rmd +++ b/fizzbuzz.Rmd @@ -46,3 +46,21 @@ for(i in 1:100){ print(answer) ``` +### Javante Foster's Code + +```{r} +a<-c(1:100) + +z<-seq(3,100, by=3) +a[z]<-'FIZZ' + +y<-seq(5,100, by=5) +a[y]<-'BUZZ' + +x<-seq(15,100, by=15) +a[x]<-'FIZZBUZZ' + +a +``` + + diff --git a/fizzbuzz.html b/fizzbuzz.html index 7457e94..d8fa81d 100644 --- a/fizzbuzz.html +++ b/fizzbuzz.html @@ -97,9 +97,6 @@ button.code-folding-btn:focus { outline: none; } -summary { - display: list-item; -} @@ -107,71 +104,10 @@
- - - @@ -180,6 +116,7 @@ + +
+

Javante Foster’s Code

+
a<-c(1:100)
+
+z<-seq(3,100, by=3)
+a[z]<-'FIZZ'
+
+y<-seq(5,100, by=5)
+a[y]<-'BUZZ'
+
+x<-seq(15,100, by=15)
+a[x]<-'FIZZBUZZ'
+
+a
+
##   [1] "1"        "2"        "FIZZ"     "4"        "BUZZ"     "FIZZ"    
+##   [7] "7"        "8"        "FIZZ"     "BUZZ"     "11"       "FIZZ"    
+##  [13] "13"       "14"       "FIZZBUZZ" "16"       "17"       "FIZZ"    
+##  [19] "19"       "BUZZ"     "FIZZ"     "22"       "23"       "FIZZ"    
+##  [25] "BUZZ"     "26"       "FIZZ"     "28"       "29"       "FIZZBUZZ"
+##  [31] "31"       "32"       "FIZZ"     "34"       "BUZZ"     "FIZZ"    
+##  [37] "37"       "38"       "FIZZ"     "BUZZ"     "41"       "FIZZ"    
+##  [43] "43"       "44"       "FIZZBUZZ" "46"       "47"       "FIZZ"    
+##  [49] "49"       "BUZZ"     "FIZZ"     "52"       "53"       "FIZZ"    
+##  [55] "BUZZ"     "56"       "FIZZ"     "58"       "59"       "FIZZBUZZ"
+##  [61] "61"       "62"       "FIZZ"     "64"       "BUZZ"     "FIZZ"    
+##  [67] "67"       "68"       "FIZZ"     "BUZZ"     "71"       "FIZZ"    
+##  [73] "73"       "74"       "FIZZBUZZ" "76"       "77"       "FIZZ"    
+##  [79] "79"       "BUZZ"     "FIZZ"     "82"       "83"       "FIZZ"    
+##  [85] "BUZZ"     "86"       "FIZZ"     "88"       "89"       "FIZZBUZZ"
+##  [91] "91"       "92"       "FIZZ"     "94"       "BUZZ"     "FIZZ"    
+##  [97] "97"       "98"       "FIZZ"     "BUZZ"
+
diff --git a/snakesladders.Rmd b/snakesladders.Rmd index 045da5c..f3c22a6 100644 --- a/snakesladders.Rmd +++ b/snakesladders.Rmd @@ -34,3 +34,22 @@ avg_moves <- mean(count) print(avg_moves) ``` +### Javante Foster's Code + +```{r} +p<-c() + +for(i in 1:1000){ +m<-0 +n<-0 +while(m<25){ + n<-n+1 + m<-m + print(sample(c(1:6),1)) +} +p[i]<-c(n) +} + +mean(p) + +``` + diff --git a/snakesladders.html b/snakesladders.html index b20f033..cf10dc0 100644 --- a/snakesladders.html +++ b/snakesladders.html @@ -97,9 +97,6 @@ button.code-folding-btn:focus { outline: none; } -summary { - display: list-item; -} @@ -107,71 +104,10 @@
- - - @@ -180,6 +116,7 @@ + +
+

Javante Foster’s Code

+
m<-0
+n<-0
+z<-0
+for(i in 1:1000)
+while(m<25){
+  n<-n+1
+  m<-m+sample(c(1:6),1)
+}
+z[i]<-n
+mean(n)
+
## [1] 9