RosettaCodeData/Task/FizzBuzz/PostScript/fizzbuzz-1.ps

8 lines
177 B
PostScript

1 1 100 {
/c false def
dup 3 mod 0 eq { (Fizz) print /c true def } if
dup 5 mod 0 eq { (Buzz) print /c true def } if
c {pop}{( ) cvs print} ifelse
(\n) print
} for