17 lines
240 B
Text
17 lines
240 B
Text
program define fizzbuzz
|
|
args n
|
|
forvalues i = 1/`n' {
|
|
if mod(`i',15) == 0 {
|
|
display "FizzBuzz"
|
|
}
|
|
else if mod(`i',5) == 0 {
|
|
display "Buzz"
|
|
}
|
|
else if mod(`i',3) == 0 {
|
|
display "Fizz"
|
|
}
|
|
else {
|
|
display `i'
|
|
}
|
|
}
|
|
end
|