11 lines
131 B
PostScript
11 lines
131 B
PostScript
|
/arithInteger {
|
||
|
|
/x exch def
|
||
|
|
/y exch def
|
||
|
|
x y add =
|
||
|
|
x y sub =
|
||
|
|
x y mul =
|
||
|
|
x y idiv =
|
||
|
|
x y mod =
|
||
|
|
x y exp =
|
||
|
|
} def
|