fork download
copy 
  1. "make a fizzbuzz :)" <- function(n)
  2. {
  3.   cat(paste(sapply(1:n, function(i) if (i%%5 == 0) if (i %% 3 == 0) print("fizzbuzz") else "buzz" else if (i%%3 == 0) "fizz" else i), "\n"))
  4. }
  5.  
  6. `make a fizzbuzz :)`(100)
Success #stdin #stdout 0.45s 22824KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "fizzbuzz"
[1] "fizzbuzz"
[1] "fizzbuzz"
[1] "fizzbuzz"
[1] "fizzbuzz"
[1] "fizzbuzz"
1 
 2 
 fizz 
 4 
 buzz 
 fizz 
 7 
 8 
 fizz 
 buzz 
 11 
 fizz 
 13 
 14 
 fizzbuzz 
 16 
 17 
 fizz 
 19 
 buzz 
 fizz 
 22 
 23 
 fizz 
 buzz 
 26 
 fizz 
 28 
 29 
 fizzbuzz 
 31 
 32 
 fizz 
 34 
 buzz 
 fizz 
 37 
 38 
 fizz 
 buzz 
 41 
 fizz 
 43 
 44 
 fizzbuzz 
 46 
 47 
 fizz 
 49 
 buzz 
 fizz 
 52 
 53 
 fizz 
 buzz 
 56 
 fizz 
 58 
 59 
 fizzbuzz 
 61 
 62 
 fizz 
 64 
 buzz 
 fizz 
 67 
 68 
 fizz 
 buzz 
 71 
 fizz 
 73 
 74 
 fizzbuzz 
 76 
 77 
 fizz 
 79 
 buzz 
 fizz 
 82 
 83 
 fizz 
 buzz 
 86 
 fizz 
 88 
 89 
 fizzbuzz 
 91 
 92 
 fizz 
 94 
 buzz 
 fizz 
 97 
 98 
 fizz 
 buzz
https://ideone.com/Duj1OS
language:
R (R 3.5.2)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!