12 lines
391 B
PostScript
12 lines
391 B
PostScript
/fizzdict 100 dict def
|
|
fizzdict begin
|
|
/notmod{ ( ) cvs } def
|
|
/mod15 { dup 15 mod 0 eq { (FizzBuzz)def }{pop}ifelse} def
|
|
/mod3 { dup 3 mod 0 eq {(Fizz)def}{pop}ifelse} def
|
|
/mod5 { dup 5 mod 0 eq {(Buzz)def}{pop}ifelse} def
|
|
1 1 100 { mod3 } for
|
|
1 1 100 { mod5 } for
|
|
1 1 100 { mod15} for
|
|
1 1 100 { dup currentdict exch known { currentdict exch get}{notmod} ifelse print (\n) print} for
|
|
end
|