RosettaCodeData/Task/FizzBuzz/PostScript/fizzbuzz-1.ps
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

7 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