fork download
copy 
  1. @Mathematica
  2.  
  3. fizz[n_]:=Which[
  4. 	Divisible[n,15],{"Fizz",n},
  5. 	Divisible[n,5],{"",n},
  6. 	Divisible[n,3],{"Fizz",n},
  7. 	True,{ToString[n],n}];
  8.  
  9. buzz[lst_]:=Which[
  10. 	Divisible[lst[[2]],15],{lst[[1]]<>"Buzz",lst[[2]]},
  11. 	Divisible[lst[[2]],5],{lst[[1]]<>"Buzz",lst[[2]]},
  12. 	Divisible[lst[[2]],3],lst,
  13. 	True,lst];
  14.  
  15. gizz[lst_]:=Which[
  16. 	Divisible[lst[[2]],35],{lst[[1]]<>"Gizz",lst[[2]]},
  17. 	Divisible[lst[[2]],21],{lst[[1]]<>"Gizz",lst[[2]]},
  18. 	Divisible[lst[[2]],7],{"Gizz",lst[[2]]},
  19. 	True,lst];
  20.  
  21. In[1] := gizz[buzz[fizz[105]]]
  22. Out[1] = {"FizzBuzzGizz", 105}
  23.  
  24. In[2] := buzz[gizz[fizz[105]]]
  25. Out[2] = {"FizzGizzBuzz", 105}
  26.  
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/oC0nu7
language:
Text (text 6.10)
created:
6 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!