RosettaCodeData/Task/General-FizzBuzz/Mathematica/general-fizzbuzz.math

7 lines
155 B
Plaintext

list={{5,"Buzz"},{3,"Fizz"},{7,"Baxx"}};
runTo=(*LCM@@list[[All,1]]+1*)20;
Column@Table[
Select[list,Mod[x,#[[1]]]==0&][[All,2]]/.{}->{x}
,{x,1,runTo}
]