RosettaCodeData/Task/FizzBuzz/TUSCRIPT/fizzbuzz.tu

15 lines
173 B
Turing
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
$$ MODE TUSCRIPT
LOOP n=1,100
mod=MOD (n,15)
SELECT mod
CASE 0
PRINT n," FizzBuzz"
CASE 3,6,9,12
PRINT n," Fizz"
CASE 5,10
PRINT n," Buzz"
DEFAULT
PRINT n
ENDSELECT
ENDLOOP